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Symbol Table 

Simple; introductory tu- 
torials and simple appli- 
cations of Forth. 

Intermediate; articles 
and code for more com- 
plex applications, and 
tutorials on generally dif- 
ficult topics. 

Advanced; requiring stu- 
dy and a thorough under- 
standing of Forth. 






Code and examples con- 
form to Forth-83 stand- 
ard. 



Code and examples con- 
form to Forth-79 stand- 
ard. 

Code and examples con- 
form to fig-FORTH. 



Deals with new propos- 
als and modifications 
to standard Forth sys- 
tems. 
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FEATURES 

9 In- Word Parameter Words 

This improvement over Huang's earlier method (Forth Dimensions V/3) works 
during compilation as well in the interpretive mode. The author is active in the 
FIG Chapter based in Taipei. 
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TI 99/4A Screen Dump 

This program prints a full-size image from the TI screen in bit-map mode. Reso- 
lution is obtained which matches that of the screen. [Other useful TI utilities are 
wanted for publication. — Editor] 

Mathquiz 

This application is doubly educational — a good learning tool for beginning 
Forth programmers who have Apple computers, and a patient arithmetic tutor 
for pre-programmers. Let's see your improvements and modifications! 

Local Definitions 

Are you tired of invoking vocabularies? Of coming up with good, unique names? 
If so, this senior engineer at the Laboratory for Laser Energetics has a fine tonic 
for what ails you. 

Enhanced DO LOOP 

When a simple problem has an overly complex solution, the Forth programmer 
will sometimes end up modifying a recalcitrant control structure. Here is a subject 
for first-time tinkerers and old-timers, too. 

The Far Right Stuff 

"Or, How America Can Stop Worrying and Learn to Love the Computer." This 
aseasonal pundit presents a short hysteria of passed-modern computing. 



Pollard's Monte Carlo Factorizer 

Even large numbers can be tested for primality within a reasonable period of 
time. This is a Forth implementation of one proven method for doing so. 



33 FORML China Tour, Part Two 

Coverage of last fall's FORML conferences in the Far East continues with the 
group's departure from Honk Kong. Join them in Shanghai, Beijing and other 
centers of budding Forth activity. 
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5 Letters 

6 Editorial: "Xie, xie" 

7 Ask the Doctor: "Learning Forth " 

37 Products & Announcements 

38 Techniques I^torial: "YACS" 
40 Chapter News by John D. HaU 
42 FIG Chapters 
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MVP-FORTH 

Stable - Transportable - Public Domain - Tools 
You need two primary features in a software development package a 
stable operating system and the ability to move programs easily and 
quickly to a variety of computers. K/IVP-FORTH gives you botfi these 
features and many extras. This public domain product includes an editor, 
FORTH assembler, tools, utilities and the vocabulary for the best selling 
book "Starting FORTH". The Programmer's Kit provides a complete 
FORTH for a variety of computers. Other MVP-FORTH products will 
simplify the development of your applications. 

MVP Books - A Series 

□ Volum* 1, All about FORTH by Haydon. MVP-FORTH 
glossary with cross references to fig-FORTH, 

Starting FORTH, and FORTH-79 Standard. 2"^ Ed. $25 

□ Vbluma 2, MVP-FORTH Assembly Source Code. Includes 
CP/M* , IBM-PC® , and APPLE® listing for kernel $20 

□ Voluma 3, Floating Point Glossary by Springer $1 

□ Volume 4, Expert System with source code by Park $1 5 

□ Volufna 5, File Management System with interrupt security 

by Moreton $25 

Volume 6, Expert Tutorial for Volume 4 by M & L Derick $1 5 

MVP-FORTH Software - A Transportable FORTH 

D MVP-FORTH Programmer's Kit including disk, documentation. 

Volumes 1 & 2 of MVP-FORTH Series (All About FORTH. 2"" Ed. 

& Assembly Source Code), and Starting FORTH. □ CP/M, 

□ CP/M 86, □ APPLE, □ STM PC, □ IBM PC/XT/AT, 
* □ PC/MS-DOS, □ Osborne, □ Kaypro, □ H89/Z89, □ Z1 00, 

n TI-PC, □ MicroDecisions, □ Northstar, □ Compupro, 

□ Cromenco, □ DEC Rainbow, □ NEC 8201 , □ TRS-80/1 00, 
^ D HP 110, □ HP 150 $150 

□ MVP-FORTH PADS (Professional Application Development 
System) for IBM PC/XT/ AT or PCjr or Apple II, II -I- or He. An 
integrated system for customizing your FORTH programs and 
applications. The editor includes a bi-directional string search 
and is a word processor specially designed for fast develop- 
ment. PADS has almost triple the compile speed of most 
FORTH's and provides fast debugging techniques. Minimum 
size target systems are easy with or without heads. Virtual 
overlays can be compiled in object code. PADS is a true 
professional development system. Specify Computer. $500 

□ MVP-FORTH EXPERT-2 System for learning and developing 
jg* knowledge based programs. Both IF-THEN procedures and 

analytical subroutines are available. Source code is provided. 
Specify □ Apple, □ IBM, or □ CP/M. Includes MVP-FORTH 
Series, Volumes 4 and 6, Expert Systems by Park. $1 00 

□ FORTH-Wrller, A Word Processor for the IBM PC/XT/AT with 
^ 256K. MVP-FORTH compatible kernel with Files, Edit and Print 

systems. Includes Disk and Calculator systems and ability to 
compile additional FORTH words. $1 50 

□ MVP-FORTH Enhancement Package for IBM-PC/XT/AT Pro- 
yjS?* grammar's Kit. Includes full screen editor, MS-DOS file interface, 

disk, display and assembler operators. $1 1 

□ MVP-FORTH Cross Compiler for CP/M Programmer's Kit. Gen- 
erates headerless code for ROM or target CPU $300 

□ MVP-FORTH Meta Compiler for CP/M Programmer's kit. Use for 
applicatons on CP/M based computer. Includes public domain 
source $1 50 

□ MVP-FORTH Fast Floating Point Includes 951 1 math chip on 
board with disks, documentation and enhanced virtual MVP- 
FORTH for Apple II, II -I- , and lie. $450 

□ MVP-FORTH Programming Aids for CP/M, IBM or APPLE Pro- 
grammer's Kit. Extremely useful tool for decompiling, callfinding, 
translating, and debugging. $200 

□ MVP-FORTH Floating Point & Matrix Math for IBM PC/XT/AT 
with 8087 or Apple with Applesoft on Programmer's Kit or 
PADS $85 

□ MVP-FORTH Graphics Extension for IBM PC/XT/AT or 
Apple on Programmer's Kit or PADS $65 

□ MVP-FORTH MS^)OS file interface for IBM PC PADS $80 



FORTH DISKS 

FORTH with editor, assembler, and manual. 
□ APPLE by MM, 83 $100 □ 68000 by LM, 83 



$250 



□ ATARI® valFORTH $60 □ viC FORTH by HES, ^ 

□ CP/M by MM, 83 $100 VIC20 cartridge * $20 

□ HP-85 by Lange $90 □ 084 by HES Commodore 

□ HP-75 by Cassady $1 SO 64 cartridge $40 

□ IBM-PC byLM, 83 $100 □ TImex bv HVi/, cassette 



n «nhw ]U Bci tinn □ T/S 1 0OO/ZX-81 ^$25 

□ Z80byLM,83 $100 ^ 2068 J^$30 

□ 8086;88 by LM, 83 $100 

Enhanced FORTH with: F-Floating Point, G-Graphlcs, T-Tutorial, 
S-Stand Alone, M-Math Chip Support, MT-Multi-Tasking, X-Other 
Extras, 79-FORTH-79, 83-FORTH-83. 
a APPLE by MM, O 084 by PS-MVP, F, 

F, G, &83 $180 G&X $96 

□ ATARI by PNS, FG, & X. $90 □ Extensions for LM Specify 

□ CP/M by MM, F & 83 $1 40 °' 

□ Software Floating 

Point $100 

□ 8087 Support 

(IBM-PC or 8086) $100 
S'w'n Wild SoHware ° ^^l 1 SupfK,rt 

LM Laboratory Microsystems (^80 Or 8086) $1 00 

MM MicroMoiion □ Color Grapfiics 

MMS Miiier Microcomputer Services nakA Dr^\ 

PNS Pinl< Noise Studio (IDIVl-f »1 UU 

PS Parsec □ Data Base 

Management $200 

FORTH MANUALS, GUIDES & DOCUMENTS 



□ TRS-80/1 or III by MMS 

F, X, & 79 $1 30 



^ □ Thinlcing FORTH by Leo Q 68000 fig-Forth with 
Brodie, author of best selling assembler 



$25 



"Starting FORTH" $1 6 □ fORML Proceedings 

□ ALL ABOUT FORTH by □ 1980 □ 1981 Vol 1 
Haydon. MVP Glossary $25 □ 1981 Vol 2 ^ 

□ FORTH Encyclopedia by D 1982 □ 1983 each $25 
Derick & Baker $25 □ 1981 Rochester 

,,*□ FYS FORTH from the „„„ 

1981 1982 1983 

J25 1984 yS?^ each $25 
$25 O Bibliography of FORTH $1 7 
O The Journal of FORTH 



Netherlands 

□ User Manual 

□ Source Listing 
□ The Complete FORTH 



byWinfield $16 Application & Research 

O Understanding FORTH □ Vol. 1/1 □VoU/2 

byReymann $3 □ Vol. 2/1 ^«*each$17 

O FORTH Fundamentals, □ METAFORTH by 

□ Vol. I by McCabe $16 t^assady $30 

D Vol II Glossary $14 O Threaded Interpretive 

^O Mastering FORTH by Languages $25 

^ Anderson & Tracy $i s □ Systems Guide to flg- 

O Beginning FORTH by ^'"9 

Chirlian $1 7 □ '"«'<"• "3 ^^a^ua' by ,^ 

□ FORTH Encyclopedia ^ing ^ $30 
Pocket Guide $7 O FORTH Notebook by 

D And So FORTH by Huang. A ^'"^ ^€^$25 

college level text. $25 □ Invitation to FORTH $20 

□ FORTH Programming by □ pop-n User Man. $20 

Scanlon $1 7 

O Starting FORTH by Brodie. □ FORTH-83 Standard $1 5 

Best instructional manual □ FORTH-79 Standard $15 

available, (soft cover) $1 9 



□ installation Manual for fig-FORTH 

G Source Listings of fig-FORTH, Specify CPU 



$15 
$15 



Ordering Information: Check. Money Order (payable to MOUNTAIN VIEW PRESS, 
INC.), VISA, MasterCard, American Express. COD'S $5 extra. Minimum order $15. 
No billing or unpaid PC's, California residents add sales tax. Shipping costs in US 
included in price. Foreign orders, pay in US funds on US bank, include for handling 
and shipping by Air: $5 for each item under $25, $1 for each item between $25 and 
$99 and $20 for each item over $100. Ail prices and products subject to change or 
v^ithdrawai without notice. Single system and/or single user license agreement 
required on some products. 



MOUNTAIN VIEW PRESS, INC. 

PO BOX 4656 MOUNTAIN VIEW, CA 94040 (415) 961-4103 



Hang Ten for Lunch 

Dear Mr. Ouverson: 

I thought you and other members of 
FIG might like to see some examples of 
a language I read about recently: 

SPEAKER SURFBOARD FETCH 

WINDOW TAIL-TOUCH 

BALL QUESTION 

SURFBOARD RIGHT FRISBEE 

FETCH 

No, it isn't Forth, although one of its 
principles is, "... object words 
precede action words, and modifiers 
come before objects." According to 
Science News (Dec. 1, 1984), this is one 
of two languages researchers at the 
Kewalo Basin Marine Mammal 
Laboratory in Honolulu use to 
communicate with dolphins. With this 
language, the "words" are hand 
gestures. The other language, which is 
not so Forth-like, uses computer- 
generated whistles. 

Yours truly, 
Bob Lewis 
Portland, Oregon 

Passport for the STATE-Iess 

Dear Marlin, 

fig-FORTH and Forth-79/83 have a 
user variable called STATE which 
contains the compilation state. A non- 
zero value means that compilation is 
occurring. Some words, such as 
LITERAL in fig-FORTH, test this user 
variable and execute differently 
depending on its value. This is known 
as state-smartness. However, there 
appears to be a movement afoot to 
eliminate state-smartness. This is 
mostly a good thing: it keeps life 
simple if a word does the same thing 
when processed by the compiler as it 
does when processed by the interpreter. 
However, translating routines 
dependent on state-smartness into 
state-less Forth dialects can be 
complicated. 



An example of state-smartness 
dependency is Alden Long's number 
conversion routine ("Letters," Forth 
Dimensions VI/2). Numbers lead a 
double life. When processed by the 
compiler they are stored into the 
dictionary as a literal. When processed 
by the interpreter they are left on top 
of the stack. Thus, any word which 
does its own number conversion 
requires state-smartness. 

One way of emulating the STATE user 
variable is to test the smudge bit of the 
most recent word in the dictionary. 
Most Forth dialects use a smudge bit 
on a word's header to hide an 
incompletely compiled word from a 
dictionary search. If the smudge bit of 
the last dictionary entry is set, it 
normally means we are compiling the 
current word. If the smudge bit of the 
last word in the dictionary is clear, the 
word is complete and, therefore, we 
must be in the interpreter. 
Unfortunately, there is a case when this 
doesn't work. If you use [ ] to break 
out to the interpreter while compiling, 
the smudge bit is set at that point. 

Although fig-FORTH has a STATE 
user variable and a state-smart 
LITERAL, here is an example of how it 
can be emulated with a word 
COMPILING? which returns the value of 
the latest smudge bit. fig-FORTH has a 
word LATEST which returns the name 
field address of the latest dictionary 
entry in the CURRENT vocabulary. 
From it, we can get the smudge bit and 
test it. 



: COMPIUNG? ( — t | f ) 
LATEST C@ 32 AND ; 

PolyFORTH, which I use, has a 
similar word LAST which is a variable 
containing a pointer to a pointer to the 
last word in the dictionary, hence: 

: COMPILING? ( — t | f ) 
LAST @ @ 2+ C@ 32 AND ; 

And finally, an example of how you 
would use this word to emulate a state- 
smart UTERAL 



: SMART-LITERAL ( n — [n] ) 
COMPILING? 
IF (COMPILE] LPTERAL 
THEN ; IMMEDIATE 

Yours sincerely, 
Paul Bigelow 
Waterloo, Ontario 

Already Abstruse 

Dear Mr. Ouverson, 

I just received my renewal notice 
today, and I noticed the change in 
editorial policy, -vvith its heavier 
emphasis on applications and practical 
tips. I want to commend you for the 
change. For some time now, I have 
believed that the reason Forth is not 
more widely used is because it has not 
had a journal willing to address itself 
to novices. Forth is abstruse enough by 
itself; it needs a presentation to 
beginners that is clear and practical. 
I'm sure that if the very real virtues of 
the language can be clearly 
demonstrated to beginning 
programmers, it will quickly win a 
much wider following. 

Sincerely, 
Scott Locicero 
Las Vegas, Nevada 

All right. Forth authors, time to get 
busy! We aim to serve beginners as we 
continue to delve into the advanced 
mysteries. Don't be shy of "heavy" 
subjects or negligent of others which 
seem trivial; but do some comparative 
research of similar ideas, define all 
your words, document your screens 
well, avoid system dependencies and 
present plenty of text in proportion to 
the amount of code. FIG member 
David A. Ryder wrote from Michigan 
last year, "I do not wish to seem bitter, 
but to me the problem is not with 
portability. It is a matter of 
communication. I am hoping the next 
volume will help a rank beginner like 
myself. " Our editorial files have plenty 
of similar letters, but we need a fresh 
reserve of material to meet this special 
need. Who will champion the novices' 
cause? 

— Marlin Ouverson 
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Xie, Xie 



Time does fly when you're having 
fun, and it's already time to remind 
you to renew your FIG membership. 
Many have already done so, ensuring 
uninterrupted delivery of Forth 
Dimensions and other important 
material. Plans are under way to 
expand member services in some 
dramatic ways, and we hope each and 
every one of you will share in the 
benefits. To one and all, thank you for 
supporting FIG's activities during past 
years. 

We would also like to recognize once 
more all of the gracious overseas 
organizers and sponsors of the 1984 
FORML China Tour. The fruit of 
their labors was a series of successful 



conferences in the Republic of China 
(Taiwan) and the People's Republic of 
China (mainland). Our coverage of 
last year's tour concludes in this issue. 
Every conference was well organized 
and was well attended by serious and 
enthusiastic audiences, the kind we 
were proud to be part of. Our thanks 
and appreciation go to all who were 
involved with these functions! 

If you stayed home last year and 
missed the Forth techniques and 
important accomplishments discussed 
at the FORML conferences, all is not 
lost. FIG members in West Germany 
are putting together an exciting 
FORML event for which they are 
soliciting papers, speakers and 



attendees. We will keep you up to date 
as details are given to us — check for 
more in "Products & 
Announcements . ' ' 

The event of note in this issue can be 
found in the "Techniques Tutorial." 
Henry Laxen has tossed down a 
gauntlet that few may dare to pick up: 
the Mystery of the Grand Case is 
waiting to be solved, and you have only 
one issue's time to do it. Those of you 
who have already renewed your FIG 
membership can go directly to Henry's 
column; all others have another 
priority — if you want to read about 
the solution in Volume Seven, Number 
One. 

— Martin Ouverson 



Missing Enigma 



Dear Fellow FIG-ers: 

I like the new "look" of Forth 
Dimensions, but miss the enigmatic 
definitions of Al McCahon. Can't .you 
bribe or threaten him from time to time 
for even a little tidbit? If possible, 
would you consider printing regularly 
an index of Forth-related articles from 
other publications? 

Keep up the good work! 

Sincerely, 
Danny K. Liles 
Jackson, Mississippi 

77/ have a talk with Al soon. . . As 
for the index, the best source is the 
Bibliography of Forth References, 
recently updated and expanded. When 
you see how many references it 
contains, you'll understand why it 
doesn't appear in our magazine pages. 
It is published by the Institute for 
Applied Forth Research, Inc., and can 



be found as well on the FIG Order 
Form in Forth Dimensions. 

— Marlin Ouverson 

Color Forth 

Greetings, 

Knowing that FIG is always 
interested in fig-FORTH 
implementations on new machines, I 
would like to take this opportunity to 
inform the membership of one such. 

Last summer I was able to get 6800 
fig-FORTH running on the Radio 
Shack MC-10 Micro Color Computer, 
which has a '6803 MPU. I had to 
rewrite 6800 Forth to run in high 
memory and, while I was at it, I fixed a 
couple of minor bugs and added some 
extensions necessary to make fig- 
FORTH useful on this tape-based 
system. Incorporated are: a csavem 
command to save a block of memory 
to tape, and commands to plot high- 
resolution graphics (the MC-10 lacked 
these commands); printer and 
SCREEN commands to direct output to 
either the console or a printer; a sound 



command for creating music; and 
Forth screens are simulated in RAM. 
This implementation, which I call MC- 
FORTH, requires the MC-10 to have 
the Radio Shack 16K RAM pack, for a 
total of 20K of memory. 

I have used MC-FORTH for a 
number of months now, and have had 
a wonderful time using it to learn 
about Forth. The offer I would like to 
make to all members of FIG is this: if 
you would Uke me to send a tape to you 
containing this Forth for the Radio 
Shack MC-10 Micro Color Computer, 
the fig-FORTH line editor and some 
assorted Forth utilities (recursive 
decompiler, dump, etc.), send $15 to 
cover my time and materials, and your 
name and address. Then you'll finally 
be able to do something interesting 
with your MC-10! 

Again, thank you for your efforts on 
behalf of all of us FIG-ers, and I hope 
my offer helps a few. 
Thank you, 
Gobind Singh Khalsa 
Liverpool, New York 
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Learning Forth 



William F. Ragsdale 
Hayward, California 



"Ask the Doctor" is Forth 
Dimensions' health maintenance 
organization to aid your understanding 
and use of Forth. Questions of a 
problem-solving nature, on locating 
references, or just regarding contem- 
porary techniques are most ap- 
propriate. When needed, your good 
doctor will call on specialists. 
Published letters will receive a preprint 
of the column as a direct reply. 

In his last column, the good doctor 
addressed the common problem of or- 
ganizing one's approach to learning 
Forth. The components of attitude, 
computer, version and documentation 
were addressed. This month, your 
faithful practitioner expands on self- 
study, based on a new book. 

We respond to the letters received 
from Bill Hepner of Anaheim, CA; 
John Megar of Snellville, GA; Dennis 
Miller of Weymouth, MA; Louis 
Lebovitz of Queens Villiage, NY; and 
Isadora Nicholson of Greenvale, NY. 
These readers ask for suggestions on 
learning Forth with systems accom- 
panied by modest documentation. 
Since the earlier column appeared, a 
book specifically intended for self- 
paced learning has been published. 

Because learning Forth is such a 
common topic in your Forth doctor's 
mailbox, he will devote this full 
column to the new book Learning 
Forth by Margaret A. Armstrong with 
technical assistance from Dr. Mitchell 
E. Timin. This volume was published 
in 1985 by John Wiley & Sons, Inc., 
New York; 226 pages, softbound, 
$16.95. 

The material is organized into eleven 
chapters, five appendices and an index. 
The chapters, although titled different- 
ly, are organized as follows: 

1. Why you should program, 
motivation 

2. Forth history 

3. Start-up 

4. Stack use, number representa- 
tion 

5. Defining new words 



6. 


Style and structure 


7. 


Editor 


8. 


Conditiona and Booleans 


9. 


Data structures 


10. 


Interactive examples 



The foreword states the author's 
purpose to develop student competen- 
cy with "...a basic working 
knowledge of Forth..." and "...to 
be ready to move on to intermediate- 
level programming in Forth." In 
summary, Armstrong accomplishes her 
goal with satifying directness. 

The Socratic style of mixing 
questions, answers and new material 
offers the reader a structured approach 
without being repetitive. Each concept 
is presented in a brief paragraph, with 
several one-line questions. Thus, 90% 
of the book presents "frames of 
knowledge" with requests for reader 
involvement. In fact, since text, 
questions and answers alternate, the 
book would be quite hard to read in 
narrative fashion. Each chapter 
concludes with several summary 
questions. 

A suggestion is in order. You will 
lose much of the "dialog" format of 
the book if you read ahead to the 
answer before truly thinking through 
each question. Try using a 3x5 card to 
cover the answers until you have had a 
chance to formulate your own. It's fine 
to look back at the text, just resist any 
temptation to read the answers! Even 
better, write down your answers. This 
is involving, and will later reveal your 
true progress and understanding. 



Good Points 

The first chapter succeeds at 
engaging the reader with discussion of 
the benefits of programming, as well as 
presenting products from a number of 
vendors. A brief history of Charles 
Moore's work sets the stage for the 
later, technical material. 

A few inaccuracies about the early 
origins of Forth and FIG are to be 
found, indicating the author worked 
from published sources rather than 



from first-hand research. These do not 
detract from the appropriateness of 
historical perspective. 

The topic of text entry to disk is 
treated in a functional way rather than 
in a technical way. The reader learns 
how to list and load from disk, but 
must get the specifics of editing from 
his system documentation. This is out 
of consideration for the reader, since 
subtle differences are found in editors 
purported to be identical. Keen insight 
or good fortune also caused the author 
to omit other elements of Forth usage 
that have variations in use or subtlety 
in application. Words such as BLOCK, 
VOCABULARY and DOES> are 
thankfully absent, as they can intrude 
on the initial development of 
competency. 

Many of the examples build to a 
major project. Chapter Eleven calls on 
these components when presenting the 
example of a simple computerized 
payroll. All the components of a 
"real" application are present, 
although offered in a limited way. We 
see data structures, prompted input, 
calculation and a report. This is the 
first time in print for a coordinated use 
of such elements to teach Forth. An 
appendix also gives twenty-four blocks 
of short application examples. 

Systems other than Forth-79 or fig- 
FORTH will have trouble with the 
examples using bl, WORD, QUERY and 
SP@ . However, such dependencies are 
far fewer than in other texts. 

At first glance, this book is similar to 
many other books on Forth. But, 
looking deeper, we see an instance of 
the 80-20 Pareto principle. Other 
books spend only twenty percent of 
their space on the twenty percent of 
Forth that is the core of usage. The 
remaining eighty percent is spent on 
completeness, details and side effects. 

Armstrong turns around the ratio. 
She spends eighty percent of the book 
on the twenty percent of Forth you use 
eighty percent of the time. Some of the 
stack manipulation examples are 
lengthy; the time you devote to this 
material will be well spent if you truly 
master it. 
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Problems 

All topics are presented at the same 
level of emphasis. This tends to mask 
some items of great importance. For 
example, on page twenty- five, the text 
interpreter is explained in five lines. 
The explanation given is not rigorous, 
and is buried without a caption as the 
fifteenth point in the chapter. 

This points out a subtle risk to the 
reader. Since information is presented 
in small bites, one may jump over and 
skip ahead. The risk is that impatient 
students will succumb to the 
temptation to skip ahead. Still, 
encapsulation of information is 
essential to the learning process, even if 
the technique is not appreciated by the 
student. It has been stated that "you 
can only learn what you almost 
know." The building-block approach 
is used here; but without an instructor 
present, the burden of pacing is 
relegated to the student. 

Some fundamentals need to be 
stated clearly the same way every time. 
There is some confusion between "a 
word" and "a word definition." Also, 
no references are cited in this work. 
And Armstrong's book would have 
benefitted from a clearer correlation 
with publications such as the Forth-79 
and Forth-83 Standards. 



Philosophy and Style 

Important methods of top-down 
design, natural-language problem 
statement and successive refinement 
are brought into play quite early 
(beginning on page three, to be exact). 

But no help is offered on screen 
editing style. There is not even a 
sample screen in the body of the book, 
although there are many in Appendix 
A. This problem is brought home on 
page 121, where a single definition is 
thirty-three Unes long. On page 124, 
insult is added to this injury when the 
same example is expanded to forty- 
eight lines! This would have been a 
great place to discuss factoring and 
modularization. 

Only one place in the book offers 
mystification to readers. The fig- 



FORTH and Forth-79 EXPECT will 
leave one or two nulls at the end of 
input text. This is mentioned in the 
book's glossary. Several examples use 
VARIABLE and ALlOT to leave space for 
text and numbers. It is a side effect of 
combined use that two extra bytes are 
allocated. This space nicely allows for 
the nulls, but no mention is made of 
such a need. If a student chose to 
conserve the space, a system crash 
would be likely. A more general 
technique would be to allot a scratch 
space, clear it to blanks, then EXPECT 
and CMOVE the desired characters to 
the storage areas. 



Terminology 

No mention is made of the Forth 
dialect used in the examples. The 
glossary is fig-FORTH, and it appears 
that all the examples will work in fig- 
FORTH and Forth-79. Five words are 
used which are not in Forth-83, but 
they may be provided in extensions by 
specific vendors (VLIST, BL, QUERY, SP@ 
and SP! ). It is a shame that simple 
overlays were not given, so that users 
of most distributed systems could 
make immediate use of this book. The 
terminology is quite up to date. 
Although the dialect appears to be fig- 
FORTH, the effects of Forth-79 and 
Forth-83 show in the text. Terms such 
as "text interpreter" are used, rather 
than the dated "outer interpreter." 
Thus, readers will be learning 
contemporary expression. 

The author does have the 
abominable habit of capitalizing the 
word Forth. This makes reading 
difficult, and continues the confusion 
between Forth as a proper noun (it is 
not an acronym), trademarks built on 
the name, and the word forth as the 
name of a vocabulary when in the 
dictionary. 



What This Book is Not 

Do not expect to use this book as a 
reference manual. English topic 
headings are at a premium and the 
index is minimal. Each major 



paragraph or subject is numbered, but 
no use of the numbers is apparent. A 
keyword would have been more user- 
oriented. While chapters are logically 
laid out, you will generally have to 
search linearly within a chapter to 
return to a specific subject. 

The material on each topic is clear, 
usable and understandable. No 
attempt is made to be comprehensive 
or to discuss side effects. As a result, 
the material should be transportable to 
a variety of Forth systems. For 
example, leave is not discussed during 
consideration of DO and LOOP. This is 
probably better left for other works, as 
compatibility problems and side effects 
are likely. In a similar fashion, 
discussion of the use of the disk for 
other than storage of programs is left 
alone. 

Conclusion 

Your good doctor is aware of no 
other Forth book which is offered 
solely as a learning experience. Other 
authors have written books from which 
they wish one to learn, but here is the 
first chance for you to participate 
completely in such an activity. 
Congratulations are in order for 
Margaret Armstrong for producing 
Learning Forth. 
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In-Word Parameter Words 




Sam Suan Chen 
Lung Tan, Taiwan 
Republic of China 

In a short note in Forth Dimensions 
(V/3), Dr. Timothy Huang used the in- 
word parameter technique to 
implement three new words: DUPx, 
DROPx and SWAPxy. These three words 
are quite fancy. However, they can be 
used only in interpretive mode, not in 
colon definitions. For example, a word 
such as z (screen 53) will not work; 
even its compilation cannot be 
completed normally. 

Here we present an improvement to 
Huang's scheme. The words used to 
achieve our goal are given on screen 54. 
They are all 79-Standard except SP@ 
and WIDTH. Although non-standard to 
Forth-79, these two words had been 



□I- 



LOAD 



LOAD 



2 4 13 

2 4 13 

OK 

• Z DIStI 



OK 



ADDR 


CODE 




72EF- 


71D5 


CR 


72F1- 


OFBB 


1 


72F3- 


0FC3 


2 


72F5- 


OFCB 


3 


72F7- 


OBOE 


(LIT) 


72F'?- 


0004 




72FB- 


080E 


(LIT) 


72FD- 


0003 




72FF- 


0A47. PICK 


7301- 


OBOE 


(LIT) 


7303- 


0002 




7305- 


0A47 


PICK 


7307- 


OBOE 


(LIT) 


730<?- 


0003 




730B- 


0A6C 


ROLL 


730D- 


08E7 


DROP 


730F- 


OBOE 


(LIT) 


731 1- 


0004 




7313- 


0A6C 


ROLL 


7315- 


08E7 


DROP 


7317- 


OBOE 


(LIT) 


7319- 


0012 




73 IB- 


7277 


XVSWAP 


731D- 


OBOE 


(LIT) 


731F- 


0034 




732 1 - 


7277 


XYSWAP 


7323- 


4 I DC 




7325- 


4 IDC 




7327- 


4 IDC 




7329- 


4 IDC 




732B- 


0DA3 


! S 


??2B- 







SCR« 53 

( TESTING OF THE WORDS DUPx, DROPx, AND SWAPxy B40415 S.CHEN > 

CR 12 3 4 

DUP3 (12 3 4 2 ) DUP2 ( 12 3 4 2 4) 

DR0P3 (12 3 2 4 ) DROP4 (13 2 4 > 

SWAP12 (13 4 2 ) SWAP34 (3142 ) 

. . . . ( THE FINAL PRINT OUT SHOULD BE: 2 4 13) 

: Z 

CR 12 3 4 

DUP3 (12 3 4 2 ) DUP2 (12 3 4 2 4) 

DR0P3 (12 3 2 4 ) DR0P4 (13 2 4 > 

SWAP12 (13 4 2 ) SWAP34 (3142 ) 

. . . . ( THE FINAL PRINT OUT SHOULD BE: 2 4 13) 



SCR« 54 

( WORDS USED TO DEFINE DUPx, DROPx, AND SWAPxy 840415 S.CHEN ) 
79-STANDARD: 

DUP DROP SWAP OVER ROT PICK ROLL >R R> RB 
+ 2+ /MOD '. e IF THEN BASE CONVERT : ; 

IMMEDIATE LITERAL STATE COMPILE C COMPILE 3 

( HERE 



NON STANDARD (BUT NOT (3UITE UNKNOWN) : 

SPe WIDTH 
SCR« 55 

( IN-WORD PARAMETER PASSING: DUPx DROPx SWAPxy 840415 S.CHEN ) 

: INWORD* BASE 8 >R 16 BASE ! HERE +00 ROT CONVERT DROP DROP 
[COMPILE] LITERAL R> BASE ! ; 

: 7C0MPILE STATE e IF R> DUP e , 2+ >R THEN ; 

: XYSWAP 16 /MOD >R DUP + SP@ + SP@ R> DUP + + OVER e OVER # 
>R SWAP ! R> SWAP ' ; 



3 WIDTH I 

4 WIDTH • 

31 WIDTH ■ 

cn 



DUPX 



3 INWORD* 7C0MPILE PICK 



IMMEDIATE 



DROPX 4 INWORD* "^COMPILE ROLL 

■^COMPILE DROP ! IMMEDIATE 
SWAPXY 4 INWORD* 7C0MPILE XYSWAP ; IMMEDIATE 



[2] 



INWORD* BASE @ >R 16 BASE ' 
HERE +00 ROT CONVERT DROP DROP ?DUP 0= 
IF . " INVALID HEX IN WORD" ABORT THEN 
C COMPILE a LITERAL R> BASE ' ; 



INWORD* BASE & :R 16 BASE ' DUP >R 

HERE + O ROT CONVERT C@ DUP 0= SWAP BL = OR NOT 

IF HERE COUNT TYPE . " ';' INVALID HEX " HERE 

COUNT Re - SWAP R> + SWAP TYPE ABORT 
THEN R> DROP DROP 
[COMPILED LITERAL R; BASE ' ; 



Figure Two 



Figure One 
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defined in fig-FORTH and most other 
Forth systems. For those unfamiliar 
with these words, please refer to Forth 
Encyclopedia by Derrick and Baker. 

The key point to our improvement 
lies in the special words INWORD$ and 
7C0MPILE. The first word decodes the 
in-word parameter as a hexadecimal 
number and then LITERALS it. Its input 
is the WIDTH declared prior to the colon 
definition. The second word 
conditionally compiles the word next 
to it when its calling word is executed 
in compiling mode; otherwise it does 
nothing. 

With the support of these two special 
tools, the definitions of DUPx, DROPx 
and swAPxy become quite simple, as 
detailed in screen 55. In the definition 
of SWAPxy, one will find a word 
XYSWAP. It is predefined to swap two 
stack items specified by two hex digits 
juxtaposed in the form of a number. 
For example, the entry 

HEX 15 XYSWAP 

will swap the top item and the fifth 
item on the stack. 

Our improvement and testing have 
been done on an Apple II with 
MicroMotion Forth-79, version 2.0. 
The test word z, mentioned above, 
now works perfectly. Its actual object 
code is shown in Figure One, along 
with the result of its execution. In 
addition, the word lNWORD$ could be 
implemented with some error checking 
hke that in Figure Two. 



ATTENTION FORTH AUTHORS! 

Author Recognition Program 

To recognize and reward authors of Forth-related articles, the 
Forth Interest Group adopted the following Author Recognition 
Program, effective October 1, 1984. 



Articles 

The author of any Forth-related article published in a periodi- 
cal or in the proceedings of a non-Forth conference is awarded 
one year's membership in the Forth interest Group, subject to 
these conditions: 

a. The membership awarded is for the membership year 
following the one during which the article was published. 

b. Only one membership per person is awarded in any year, 
regardless of the number of articles the person published in 
that year. 

c. The article's length must be one page or more in the 
magazine in which it was published. 

d. The author must submit the printed article (photocopies 
are accepted) to the Forth Interest Group, including identifica- 
tion of the magazine and issue in which it appeared, within 
sixty days of publication. In return, the author will be sent a 
coupon good for the following year's membership. 

e. If the original article was published in a language other 
than English, the article must be accompanied by an English 
translation. 

f. Articles are eligible under this program only if they were 
first published after October 1, 1984. 



Letters to the Editor 

Letters to the editor are, in effect, "mini-articles," and so 
deserve recognition. The author of any Forth-related letter to an 
editor published in any magazine except Forth Dimensions, is 
awarded $10 credit toward FIG membership fees, subject to 
these conditions: 

a. The credit applies only to membership fees for the mem- 
bership year following the one in which the letter was 
published. 

b. The maximum award in any year to any person will not ex- 
ceed the full cost of the membership fee for the following year. 

c. The author must submit to the Forth Interest Group a 
photocopy of the printed letter, including identification of the 
magazine and issue in which it appeared, within sixty days of 
publication. The author will then be sent a coupon worth $10 
toward the following year's membership. 

d. If the original letter was published in a language other 
than English, the letter must be accompanied by an English 
translation. 

e. Letters are eligible under this program only if they were 
first published after October 1, 1984. 



FORTH Dimensions 



10 



Volume VI, No. 



6 



Tl 99/4A Screen Dump 



Howard H. Rogers 
Torrance, California 

Forth, as written for the Texas 
Instruments 99/4A computer, permits 
a simple implementation of bit-map 
mode. The Forth program described 
below prints a full-size replica of the 
screen on a compatible printer. This 
technique should be adaptable to other 
computers, if changes make the 
scanning procedures specific to the 
particular video display processor 
(VDP). The printer used was a Star- 
Micronics Gemini 10. The resolution 
attained is identical to that of the 
screen, 256 x 192 pixels. 

The program operates in the 
following way. The particular bit-map 
mode, as stored in VDPMDE (the word 
for VDP control; screen 123, Hne 9), 
selects the addresses which determine 
the limits of the specific mode in use. 
VDP RAM (Figure One) is scanned 
(screen 123, Hnes 2-5) to correspond to 
the first row of pixels starting at the 
upper-left corner of the screen. The 
data is stored in the variable SCRDATA 
until the line is complete (screen 123, 
line 5). 

At this point, the method used by 
PRT (screen 122, lines 13-15) to achieve 
the desired resolution in the final 
printout will be described. The bit-map 
modes available in the printer have too 
many dots per inch to be useful (sixty 
or 120), since a print would result 
which is much smaller than the image 
on the ten-inch monitor screen. The 
greatest resolution available in 
character mode was seventeen 
characters per inch, which was not 
enough (136 characters total in eight 
inches). The problem was solved by 
selecting three characters, ASCII 225, 
227 and 231, which print as follows. 
An ASCII 225 prints a 3 x 3 square in 
the upper-left corner of a 6 x 6 field; 
ASCII 227 prints a 3 x 3 square in the 
upper-right corner of the field; and 
ASCII 231 prints a 3 x 6 rectangle in 
the top half of the field. Hence, a 
maximum of 272 3 x3 squares in eight 
inches resulted. A linefeed of 2/72 inch 
gives the proper ratio between height 
and width, and also provides some 





COL. 


COL. 


COL. 


COL. 


COL . 


COL. . 


ROMS 


0-7 


8-F 


10-17 


18-lF . . 


. . A0-A8 . 


. . FB-FF 




2000 


2008 


1 


20 1 8 


20A(I' 


^'oF"(3 


1 


2001 


2009 


2011 


2019 


20A1 


20F9 




2002 


200A 


2012 


201 A 


20A2 


20F"fl 




2003 


200B 


2013 


201B 


20A3 


20FB 


7 


2007 


200F 


2017 


201F 


20A7 


20FF 


8 


2 1 00 


2108 


2110 


2118 


21 AO 


21Fa 


F 


2107 


21 OF 


2117 


211F 


21A7 


2 IFF 


BO 


3600 


3608 


3610 


3618 


36A0 


36F"8 


BF 


3707 


370F 


3717 


37 IF 


37A7 


37f-F 


Partial Memory Map of Screen in Bit-Map Mode. 





Figure One 



SCR #122 

( SCREEN DUMP - BIT-MAP MODES HHR 1984 ) BASE->R DECIMAL 

1 VARIABLE SCRDATA 256 ALLOT SCRDATA 256 ERASE ( VDP data ) 

2 O VARIABLE STDATA 128 ALLOT STDATA 128 ERASE ( Printer data > 

3 SWCH 15 EMIT 27 EMIT 65 EMIT 2 EMIT ( Printer codes (5ENINI 10) 

4 27 EMIT 77 EMIT 4 EMIT UNSWCH < 2/72 LF, 4 LH margin, 17 CPl) 

5 : SELECT CASE O OF 32 ENDOF ( Choose printer character) 

b 128 OF 225 ENDOF ( Binary-ASCII 0- 32 01-227) 

7 64 OF 227 ENDOF ( Binary-ASCII 10-225 11-23:1) 

8 192 OF 231 ENDOF ENDCASE ; 

9 ! SCAN 32 DO SCRDATA I + CS ( Read data, 32 bytes per Line) 

10 4 DO DUP 192 AND SELECT ( Select 2 bits for each character) 

11 STDATA J 4 * I ++ CI ( Stare data to be sent to printer) 

12 2 SLA LOOP DROP LOOP ; ( Shi-ft left 2 bits each loop) 

13 ! PRT SCAN S"WCH 128 O DO STDATA I + t Begin print S< -fetch data) 

14 C8 EMITS LOOP CR ( Send CHR 32, 225, 227, and 231) 

15 20000 DO LOOP UNSWCH ; — > ( Time delay -for printer) 



SCR 

1 
2 
3 
4 
5 
& 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 



#123 

< SCREEN DUMP 



BIT-MAP MODES HHR 1984 



Continued) 



< Reads VDP RAM and 



) 



SCREEN_DUMP DO 8 O DO 256 DO 
R> R> R> R> R SWAP >R OVER + 

SWAP >R SWAP >R OVER + SWAP >R 
SCRDATA I 8 / + 8 VMBR 8 +LDDP 
PRT 7TERMINAL IF SWCH CR UNSWCH 

QUIT ENDIF LOOP ( Press CLEAR to stop printing ) 

( Signals completion o-f printing) 



stores in CPU RAM ) 
Adds 3 loop indicies) 
Transfer from VDP to CPU) 



256 +LOOP BEEP 
SCREEN/DUMP VDPMDE iS CASE 

4 OF 14336 8192 ENDOF 

5 OF 12288 8192 ENDOF 

6 OF 14336 9216 ENDOF 
HONK CR . " ERROR 

SCREEN DUMP BEEP 



( Selects 5raphics2 mode ) 
( Selects SPLIT mode ) 
( Selects SPLIT2 mode ) 
REQUIRES BIT-MAPPED MODES " QUIT ENDCASE 
R->BASE ( If none of above modes ) 
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overlap of characters. The printer 
codes are shown on screen 122, lines 
3-4. 

PRT starts with do loops that read 
data for each line of the screen. Each 
two bits of data are stored sequentially 
in STDATA by SCAN (screen 122, lines 
9-12). Upon completion of the loop, 
printing begins with SWCH, which turns 
on the interface to the printer. After 
the line has been printed by the print 
loop (screen 122, Hues 13-15), the 
process continues line-by-line, using 
the three do loops in screen 123, lines 



2-8, until the entire screen has been 
copied. 

A sample use of the graphics 
program (screen 132) and the printed 
result are in Figure Two, a simple 
three-dimensional box. The lines were 
first plotted on the monitor screen with 
the word .line (available on the TI 
99/4A) and then were printed with 
SCREEN/DUMP. The last step usually 
requires about ten minutes, partly due 
to the unidirectional print mode used 
for the greatest precision when plotting 
graphical data. 
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( EXAMPLE OF BIT MAP MODE DRAWING) 
( RECTANGULAR BOX) 
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Multiuser/Multitasking 

for 8080. Z80. 808.6 



Industrial 
Strength 

FORTH 



TaskFORTH. 

The First 
Professional Quality 
Full Feature FORTH 
System at a micro price* 

LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 

Unlimited number of tasl<s 

•ir Multiple thread dictionary, 
superfast compilation 

■i!r Novice Programmer 
Protection PackageiM 

if Diagnostic tools, quick and 
simple debugging 

■iV StP.isng FORTr^, PO:^TH-79, 
FORTH-83 compatible 

Screen and serial editor, 
easy program generation 

■Cr Hierarchical file system with 
data base management 

* starter package $250. Fun package $395. Single 
user and commercial licenses available. 

If you are an experienced 
FORTH programmer, this is the 
one you have been waiting for! 
If you are a beginning FORTH 
programmer, this will get you 
started right, and quickly tool 

Available on 8 Inch disk 
under CP/M 2.2 or greater 
also 

various 5V*" formats 
and other operating systems 

FULLY WARRANTIED, 
DOCUMENTED AND 
SUPPORTED 



Shaw Laboratories, Ltd. 

24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 
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An Interactive Math Game: 

Mathquiz 

Lyle D. Morton 
Wheatland, Wyoming 



Perhaps you work from the same 
handicap I do. I am not an expert at 
Forth. With that in mind, I am going to 
present an article for all the Forth 
beginners in the world. When I wrote 
Mathquiz, I accomplished many 
routines and structures for the first 
time in a program of my own design. 
Some of the words and concepts are 
straight out of Starting Forth by Leo 
Brodie, but in this program I tried to 
put them together in a meaningful way. 

As the father of two computer- 
loving children, I was seeking to devel- 
op something they would enjoy using, 
and which could also help with their 
basic math skills. I wrote it in Forth as 
a self-teaching exercise, and because I 
prefer it to BASIC and Pascal. In an 
attempt to emulate such hardware as 
Texas Instruments' "Little Professor" 
and "Speak and Math," I included the 
skill-level selection routines and con- 
gratulatory remarks. The title page and 
the pep talk at the start of the program 
were an attempt to spruce up the 
program and give it the feel of a soft- 
ware package the kids might be ex- 
posed to in school. 

Mathquiz is written in MVP- 
FORTH (Forth-79), but I have added a 
couple of extra Apple utilities I coded 
on my Apple II. Those utilities are 
INVERSE and NORMAL. They make use 
of inverse characters on the screen and 
can easily be deleted from the pro- 
gram. I have included their definitions 
for Apple users who have not yet coded 
them. You will also notice that I used a 
large number of variables in the pro- 
gram. I have read that this shows up in 
most programs written by beginners, 
but I think it enhances readability of 
the code. 

If you have a machine that uses 
eighty columns exclusively, you will 
want to change the title page to use the 
full width, or to include carriage 
returns after line endings, to eliminate 
scrambled eggs for a title. You may 
also want to adjust the delay loops to 
give the proper amount of time to read 




HELLO. YOU ARE ENTERING THE WORLD 
OF MATH-QUIZ. PLEASE ENJOY YOURSELF! 
EE ADVISED THE UPPER LEVELS MAY REQUIRE 
A PENCIL AND PAPER. GOOD LUCK! WELCOME TO MATHQUi: 
ENTER YOUR FIRST NAME. 
LYLE 

LYLE , YOU MAY CHOOSE FROM THE 
FOLLOWING MENU : 

MATH QUIZ VERSION 1.3 

1. ADDITION 

2. SUBTRACTION 

3. MULTIPLICATION 

4. DIVISION 

5. STOP PROGRAM 

TYPE THE NUMBER OF YOUR CHOICE. 



CHOSE YOUR LEVEL OF DIFFICULTY: 
1, 2, 3, OR 4 



VERSION 1.3 



9 + 5 = 


14 CORRECT 


10+2 


= 12 CORRECT 


3 + 9 = 


12 CORRECT 


5 + = 


5 CORRECT 


1 + 1 = 


2 CORRECT 


1 + 7 = 


8 CORRECT 


10 + 10 


= 20 CORRECT 


3 + 7 = 


10 CORRECT 


10+9 


= 19 CORRECT 


9 + = 


9 CORRECT 


LYLE, YOU 


WERE CORRECT 10 TIMES 



OUT OF 10. VERY GOOD ! LYLE 
FOLLOWING MENU : 



VOU MAY CHOOSE FROM THE 



MATH QUIZ VERSION 1.3 

1. ADDITION 

2. SUBTRACTION 

3. MULTIPLICATION 

4. DIVISION 

5. STOP PROGRAM 

TYPE THE NUMBER OF YOUR CHOICE. 



CHOSE YOUR LEVEL OF DIFFICULTY: 





1, 2, 


3, OR 4 


28 


~ 2 - 


26 CORRECT 


34 


- 18 


= 16 CORRECT 


40 


-•17 


= 13 


WRONG, THE CORRECT ANSWER IS 


38 


- 11 


= 27 CORRECT 


28 


- 11 


= 17 CORRECT 


40 


- 14 


= 26 CORRECT 


36 


- = 


36 CORRECT 


34 


- 5 = 


29 CORRECT 


29 


- 6 = 


23 CORRECT 


39 


- 6 = 


33 CORRECT 


LYLE, YOU 


MERE CORRECT 9 TIMI 


OUT 


OF 10. 


VERY GOOD! LYLE , 


YOU 


MAY CHOOSE FROM THE 


FOLLOWING 


MENU : 




MATH 


QUIZ VERSION 1.3 




1. 


ADDITION 






SUBTRACTION 




3. 


MULTIPLICATION 




4. 


DIVISION 




5. 


STOP PROGRAM 



CHOSE YOUR LEVEL OF DIFFICULTY 
1, 2, 3, OR 4 

20 * 14 = 280 CORRECT! 
19 « 5 = 95 CORRECT! 
5 ♦ 12 = 60 CORRECT! 
3 ♦ 16 = 58 

WRONG, THE CORRECT ANSWER IS 
♦ 18 = 108 CORRECT' 



4B 



TYPE THE NUMBER OF YOUR CHOICE. 



6 

6 ♦ 15 = 90 CORRECT' 
10 * 10 = 100 CORRECT' 

6 ♦ 5 = 30 CORRECT' 

7 » 15 = 115 

WRONG, THE CORRECT ANSWER IS 105 

8 ♦ 16 = 118 

WRONG, THE CORRECT ANSWER IS 128 
LYLE, YOU WERE CORRECT 7 TIMES 
OUT OF 10. NOT BAD! LYLE , 
YOU MAY CHOOSE FROM THE 
FOLLOWING MENU : 

MATH QUIZ VERSION 1.3 

1. ADDITION 

2. SUBTRACTION 

3. MULTIPLICATION 

4. DIVISION 

5. STOP PROGRAM 

TYPE THE NUMBER OF YOUR CHOICE. 

THANKS-PLAY AGAIN SOON' nv: 



Figure One 



Volume VI, No. 6 



13 



FORTH Dimensions 



the title page and pep talk. If you are 
memory conscious, you can use fewer 
than forty bytes in NAME (most names 
are not nearly that long). 

All the math routines were 
straightforward except division. Since 
we normally don't have access to float- 
ing point in Forth, and not wanting 
answers truncated, I decided to use a 
modified multiplication routine. I mul- 
tiply two random numbers, then dis- 
play one of them and the product, and 
ask the player to figure out the second 
multiplier. (By adding one to the 
original random numbers, I eliminated 
the possibility of dividing by zero.) 

Those of you who are as green as I 
was when I started this program may 
want to look at getname and ANSWER. 
These were the two most difficult 
words for me to get correct. If there is 
a lack in Starting Forth, I think this is 
it. It took several hours of research in 
All About Forth by Glen Haydon and 
in And So FORTH by Timothy Huang 
before I knew what I was doing with 
this kind of input in an interactive 
program. 

Mathquiz has been in transition for 
many months. Hence, this is version 
1.3. Originally, the program did not 
loop continuously; after the initial 
START command was typed by the 
player, only one set of ten problems 
was given. At the end of those prob- 
lems, the player needed to type QUIZ to 
get his next ten problems. I made the 
program loop by using a BEGIN while 
REPEAT structure in the word QUIZ. 
Recently, I changed the method of 
problem type and difficulty selection to 
single-keystroke entry by using KEY 
and by comparing the ASCII value it 
returns for a match. 

I have several more ideas to improve 
(maybe "change" is the correct word) 
Mathquiz. Changes often have meant 
incorporating different Forth struc- 
tures, and this has been both enjoyable 
and enlightening. I hope the ideas in 
Mathquiz are of use to you. 



SCR #71 

( RANDOM NUMBER GENERATOR from "Starting FORTH" ) 

1 VARIABLE RND HERE RND ' 

2 : RANDOM RND (? 31421 » 6927 + DUP RND ! ; 
3 

4 : CHOOSE ( U1---U2 ) 

5 RANDOM U* SWAP DROP ; 

6 

7 ( APPLE UTILITIES INVERSE S NORMAL 09/83 LDM ) 

e 

9 HEX 

10 : INVERSE FE80 CALL ; ( Change to inverse characters ) 

11 : NORMAL FE84 CALL ; ( Return to normal characters ) 

12 DECIMAL 
13 

14 
15 



SCR 


#79 





( MENU MODULE ) 


1 


: EEGINLINE CR 8 SPACES j 


2 


! HEADER CR 5 SPACES 


3 


. " MATH QUIZ VERSION 1.3 " ; 


4 


! MATHMENU ( DISPLAY CHOICES ) 


5 


HEADER EEGINLINE . " 1. ADDITION" 


b 


BEGINLINE . " 2. SUBTRACTION " 


7 


EEGINLINE ." 3. MULTIPLICATION" 


B 


BEGINLINE ." 4. DIVISION " 


9 


EEGINLINE . " 5. STOP PROGRAM" CR 


10 


. " TYPE THE NUMBER OF YOUR " 


11 


. " CHOICE. " KEY CHOICE f 


12 
13 




14 




15 





SCR #80 

( DIFFICULTY SELECTION MODULE ) 

1 : DIFFICULTY CH . " CHOSE YOUR LEVEL" 

2 ." OF DIFFICULTY!" CH 5 SPACES 

3 . " 1, 2, 3, OR 4 " ; 

4 : SELECT BEGIN KEY DUP 2DUP < use BEGIN ... UNTIL loop ) 

5 49 = IF 11 LEVEL ! DROP 2DR0P 1 ELSE ( to check for err 

6 50 = IF 21 LEVEL ' 2DR0P 1 ELSE ( 11,21,51,101 are ) 

7 51 = IF 51 LEVEL ! DROP 1 ELSE ( difficulty ) 

8 52 = IF 101 LEVEL ! 1 ELSE CR ( multipliers ) 

9 . " NUMBER OUT OF RANGE! TRY " 

10 . " AGAIN. " 7 EMIT ( EELL ) 

11 THEN THEN THEN THEN 1 = UNTIL ; 
12 

13 : GETDIF DIFFICULTY SELECT ; 

14 

15 

SCR #83 

< SELECTION MODULE ) 

1 : GETONE CHOICE S DUP DUP 2DUP ( select problem type ) 

2 49 = IF 2DR0P 2DR0P GETDIF 10-ADD ELSE 

3 50 = IF 2DR0P DROP GETDIF 10-SUE ELSE 

4 51 = IF 2DR0P GETDIF 10-MULT ELSE 

5 52 = IF DROP GETDIF 10-DIV ELSE 

6 53 = IF CR ." THANKS-PLAY AGAIN SOON!" CR 

7 ELSE CR CR 7 EMIT ( bell ) . " ENTRY OUT OF RANGE " 

8 1 CHOICE I ( false response to cause QUIZ to loop ) 

9 THEN THEN THEN THEN THEN ; 

10 : QUIZ BEGIN PAGE < infinite BEGIN. . WHILE. . REPEAT loop ) 

11 REGREET MATHMENU ( get player's rjame & show menu ) 

12 GETONE CHOICE S ( get player's choice ) 

13 53 < WHILE DELAY REPEAT ; ( check for stop or error ) 

14 : START MATHTITLE DELAY INSTRUCT 2DELAY 

15 2DELAY COMMENCE 2DELAY QUIZ ; 
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Now You Can Add 



ARTIFICIAL 
INTELLIGENCE 

To Your Programs Using a Powerful Combination 



mm 



By Elliot Schneider & Jacl< Park 



Heres Your Chance to Profit by being on 
the Forefront, Write 5th Generation Software 



Learn How To: 

• Create Intelligent • 

Programs 

• Build Expert Systems • 

• Write Stand Alone License 

Free Programs • 

Write Intelligent Programs 

• Home Use • 

• Robotics • 

• Medical Diagnosis • 

• Education 

• Intelligent CAI • 

• Scientific Analysis • 

• Data Acquisition • 

Extended Math Functions 

• Fast ML Floating Point & Integer Math 

• Double Precision 2E+38 with Auto. Sci Not. 

• n^^e" Logx Loge Sin Cos Tan SQR 1/X... 

• Matrix and Multidimensional Lattice Math 

• Algebraic Expression Evaluator 



Construct 
Rule Bases 
Do Knowledge 
Engineering 
Use Inference Engines 

For: 

Data Analysis 
Business 
Real Time 
Process Control 
Fast Games 
Graphics 

Financial Decisions 



SUPERFORTH 64+AI 



LISP 



LOGO 



PASCAL 
BASIC 
FORTRAN 



ASSEMBLER 



other 



6x 



SF64 1x 



Power of Languages Constructs 

SuperForth 64 is more 
powerful than most other 
computer languages 



Programming Time 

SuperForth 64 Saves You 
Time and Money 



Easy Graphics & Sound Words 



• Hires Plotting 

• Windows 

• Split Screen 

• Printer/Plotter Ctrl 

• Sprite & Animation 
Editor 

Easy Control of all I/O... 

• RS232 Functions 

• Access all C-64 Peripherals 

Utilities 

• Interactive Interpreter 

• Forth Virtual Memory 

• Full Cursor Screen Editor 

• Full String Handling 

• Trace & Decompiler 

• Conditional Macro 
Assembler 



Great Documentation 

• Easy to Read 350 pg. 
Manual with Tutorials 

• Source Screen Provided 

• Meets all MVP Forth -79 
Industrial Standards 

• Personal User Support 

A Total 
Integrated Package 
for the Commodore 64 



• Turtle Graphics 

• Koala Pad Graphics 
Integrator 

• Hires Circle, Line, Arc 

• Music Editor 

• Sound Control 

• Interrupt Routines 



• Interactive Compiler 

• Romable Code Generator 

• 40K User Memory 

• All Commodore File Types 

• Conversational User 
Defined Commands 




Ordering Information: Checl<, Money 
Order (payable to MOUNTAIN VIEW 
PRESS, INC.), VISA, MasterCard, 
American Express. COD's $5.00 extra. 
No billing or unpaid PO's. California 
residents add sales tax. Shipping costs 
in US included in price. Foreign orders, 
pay in US funds on US bank, include 
for handling and shipping SlO. 

" Parsec Research 

Commodore 64 TM of Commodore 



SPECIAL 
INTRODUCTORY OFFER 



^99 



00 



only 

203='° Value 
Limited Time Offer 



Call: 
(415) 961-4103 

MOUNTAIN VIEW PRESS INC 

P.O. Box 4656 
Mt. View, OA 94040 

Dealer for 
PARSEC RESEARCH 

Drawer 1776. Fremont, CA 94538 



Local Definitions 




Carol Pruitt 
Rochester, New York 

As I've developed larger and larger 
systems in Forth, I've become 
increasingly annoyed by its habit of 
remembering every name. Most utility 
packages consist of dozens of words, 
of which only a handful (scattered here 
and there) are intended for outside use. 
From the compiler's point of view, the 
rest of those words are just names that 
can't be used for something else. Mere 
assemblers can distinguish between 
local and global definitions — why 
shouldn't Forth? 

I've tried using vocabularies for this 
purpose, but have become weary of 
constantly invoking this vocabulary 
and that. (The readability of the code 
suffers, too.) After six years of Forth 
programming, I've become weary 
enough to do something about it. 

The most visible word (see Figure 
One) in my implementation is LOCAL, 
which is used hke immediate. It marks 
the most recently defined word as a 
local definition. LOCAL.START and 
LOCAL.END determine the boundaries of 
the local area (i.e., the area inside 
which the local definitions are visible). 

This technique serves the intended 
purpose, namely: 

1) Only generally-useful words are 
visible outside their area. 

If this is rephrased as, "Forth can 
tell the difference between local and 
global words," a corollary advantage 
becomes apparent: 

2) Humans reading the code can tell 
which words are intended for general 
use. 

If, on the other hand, the phrasing 
is, "It is impossible to call local words 
from the keyboard," then: 



( Example of LOCAL usage 




ll-Jun-84 CJP ) 


LOCAL . START 




( begin local area ) 


VARIABLE 


DWORD 


LOCAL 


( note that ) 








( local definitions) 


CODE IWORD 


( whatever ) NEXT, 


LOCAL 


( can be variables, ) 








( code words, ) 


: 2W0RD 


( whatever ) ; 


LOCAL 


( colon words, etc.) 


: 3W0RD 


IWORD 2W0RD ; 




( note also that ) 








( locals Sc globals ) 


: 4WORD 


10 




( can be ) 




DO IWORD LOOP ; 


LOCAL 


( intermixed ) 








( as desired ) 


: 5W0RD 


OWORD 








IF 3W0RD ELSE 4W0RD 


THEN ; 




LOCAL.END 






( end local area ) 


;S 









Figure One 




i 2W0RD I 1 3W0RD i I 4W0RD 1 i SWORD 

X— ' X "'"' X "-' X""' 



Just before interpretation of LOCAL.END, all words of the example are linked into 
the CURRENT vocabulary, just as in any typical Forth system. 



OWORD I I IWORD 



2W0RD 



I 3WORD 



4W0RD 



I SWORD 



After interpretation of LOCAL.END, only SWORD and SWORD are still linked into 
the vocabulary. This frees the other four names for re-use, and incidentally speeds 
compilation. 

Even though the four local words are no longer linked into the vocabulary, 
however, they are still used by other words within the local area. They can be used 
from outside the local area only indirectly, by using global words which use the local 
words. 



Figure Two 



3) This technique can serve much the 
same purpose as sealed vocabularies. 

A fourth advantage derives from the 
implementation. My first inclination 
was simply to smudge all local words 
upon reaching the end of the local 
area. However, the technique shown 
here, that of delinking the local words 
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( LOCAL: Implement local definitions 



ll-Jun-84 CJP 



VARIABLE LINK. FROM 
64 CONSTANT LBIT 
: LOCAL 

CURRENT @ PFA @ NFA 
DUP C@ LBIT OR 
SWAP CI ; 

: LOCAL. START 
HERE ; 

: LOCAL. END 



( save LFA of last non-local word 
( value of name-field's local bit 

( <> — <> 

( set "local" bit 

( in name field of word 

( most recently defined 

( <> — <start addr of local area> 



( <start addr of local area>--<> 
( de-link LOCAL words from vocab. 



CURRENT @ PFA 
DUP LINK. FROM 1 
@ 

BEGIN 2DUP < 
WHILE 

DUP NFA C@ LBIT AND 
IF LFA @ 

DUP LINK. FROM @ 1 
ELSE LFA 

DUP LINK. FROM 1 

THEN 
REPEAT 2DR0P ; 



save starting link-from addr 
initialize this-word pointer 
for each word defined 
since LOCAL. START, 

if the word is local, 

de-link it 
else it becomes 

link-from word 



;S 

Copyright© 1985 by the University of Rochester. All rights reserved. Permission is 
hereby granted for personal, non-commercial use provided this notice accompanies 
such use. 



Figure Three 



from their vocabulary (see Figure 
Two), yields this happy side effect: 

4) Things compile faster. 

As a test of this side effect, I marked 
enough local definitions in the lower 
layers of a large application to reduce 
the total number of global words (in 
system and application) by twenty- 
three percent. Compile time for the 
upper layer fell by twenty-two percent. 
Presumably, the similarity of 
percentages is not a coincidence. 

Of course, any local-definition 
technique has the following bizarre (to 
the veteran Forth programmer) effect: 
once a word has been designated as 
local, it cannot be called (or even 
found) from another part of the system 
(or even the keyboard) until that 
designation is removed and the source 
is recompiled. Since locals are most 
useful on large applications (which 
take a long time to recompile), care 
should be exercised in determining 
which words are to be local. 



Implementation 

LLE Forth, used in the University of 
Rochester's Laboratory for Laser 
Energetics, is quasi-79-Standard; I 
believe the additional words in Figure 
Three are familiar to Forth Dimensions 
readers. NFA, LFA and PFA each start 
with the code-field address on the 
stack, and leave the name-field, link- 
field or parameter-field address, 
respectively. 

Our link field points to the code field 
of the preceding word. The definition 
of LOCAL.END can be modified to suit 
other types of link. 

Some way must be chosen to flag 
local words for delinking. The count 
byte of our name field had two unused 
bits, so I chose bit six for this purpose. 
This required modifying FIND to mask 
out bit six along with the precedence 
bit. Some Forth systems may already 
mask out everything except the count 
(and smudge bit, if any). 

If enough spare bits (or other flags) 
are available, additional levels of 



localness could be formalized. The 
implementation given here is, however, 
semi-nestable. That is, smaller, super- 
local areas can be designated inside 
larger local areas. The only restriction 
is that a local definition cannot exist 
inside a super-local area. (When LOCAL 
is used inside a super-local area, it 
designates a super-local word.) 

There is also one fairly minor 
restriction on the use of local words in 
general: while it is possible to change 
vocabularies inside a local area, it is 
definitely not advisable. The effects are 
peculiar and, as a result, the code is less 
readable. This restriction is more 
academic than actual, however, since 
local words can serve as an alternative 
to vocabularies. 
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Enhanced DO LOOP 




Michael Hore 
Numbulwar, Northern Territory 
Australia 

This article will show how, with very 
little effort, you can add a useful en- 
hancement to the Forth-83 DO LOOP 
construct. In the process, we will touch 
on various aspects of its implementa- 
tion. If you have not tried adding any 
enhancements to your compiler's con- 
trol structures as yet, this may be a 
good place to start. Sorry, if your 
Forth has the earlier type of DO, you 
won't be able to make use of this idea 
— it depends on how the Forth-83 
LEAVE is usually implemented. 

First, let's look at an example of a 
very common situation. You have to 
write a word to search a table for an 
entry matching a given value. The 
required stack effects are 

( value table-addr if entries — addr' ) 
where addr' is the address of the 
matching entry in the table, or zero if 
there is no match. 

Simple. You grab your pencil and 
write 

: LOOKUP OVER -i- SWAP 

DO I ® OVER = IF DROP I LEAVE THEN 
LOOP ; 

Of course, being a capable Forth 
programmer, in no time at all 
(certainly before testing!) you notice 
that this code will only work if there is 
a match in the table. If there isn't, after 
the LOOP falls through, you won't have 
the required zero on the stack; value 
will still be there. You need a DROP 0. 
But how can you prevent that from 
destroying the (correct) result when the 
search succeeds? The usual method is 
to push a zero just before the LOOP, in 
case this is the last time around. 
Remember, in Forth-83 there is no 
straightforward way of checking that 
this is, in fact, the last time around. 
You have to put the zero there just in 
case it is. So, after a few adjustments 
to keep the stack in order, you end up 
with 

: LOOKUP ROT ROT OVER + SWAP 
DO DROP I @ OVER = 
IF I LEAVE 

THEN LOOP SWAP DROP ; 

And that should work. But it is 



hardly elegant code! Now, a good rule 
of thumb is that if the solution to a 
problem looks messy, then maybe we 
haven't understood the problem. I 
know there may be such things as 
messy problems to which only messy 
solutions are possible, but without 
entering a long philosophical debate, 
the fact is that here is what appears to 
be a simple problem to which we have a 
rather messy-looking solution. 

So, where does the messiness come 
from? The cause of the trouble is 
surely this: When the search succeeds, 
we can put anything we like after the IF 
to set up whatever results are required. 
But if the search fails and the LOOP 
falls through, there is no place to set up 
whatever results we need for that 
particular situation. The code after the 
LOOP is executed no matter what 
happened. We have to set up our 
"failure" results before the loop, to be 
there in case the loop falls through, 
and DROP them at the beginning. It's 
not hard to think of other situations 
which would give even messier code 
than we have here. 

What we really need is a place where 
"failure" results can be set up, which 
are simply not executed if the loop 
LEAVES. I am proposing the construct 

LOOP—FALLTHRU: . . . THEN 

I am using THEN to conclude the 
construct, since LOOP — FALLTHRU: is 

something like an if combined with 
LOOP — testing the condition, 
"Did the LOOP fall through?" 

Now, this construct is very easy to 
implement under most versions of 
Forth-83. The details, however, are 
dependent on how each particular 
version handles DO LOOP. In what 
follows, I will make particular 
reference to F83, the implementation 
by Henry Laxen and Michael Perry, 
which looks like it is becoming widely 
used. I will also provide enough 
information so that if you have a 
different implementation, you will at 
least have a good chance of working 
out what to do. Also, anything I say 
about LOOP could equally well apply to 
+ LOOP, so I won't mention it 
explicitly. 



DO is always immediate and compiles 
(DO), its run-time operation, and 
pushes the address of the word 
following the (DO) onto the stack (using 
the system extension word <MARK or 
its equivalent). This address or 
"mark" may be used in different ways. 
It is generally picked up by LOOP to 
compile (LOOP) and a backward branch 
address pointing to the word following 
the (DO). This branch address is 
compiled by the word < resolve or its 
equivalent, within the definition of 
LOOP. 

In pre-83 Forths, nothing else had to 
be done. In Forth-83, however, leave 
must cause a branch out of the loop, 
and we have to arrange things so that 
this works properly. LEAVE is now 
immediate, and could compile (LEAVE) 
and then do a >MARK to compile a 
forward branch address which would 
be filled in ("resolved") by a 

> RESOLVE within LOOP. However, as 
there could be any number of leaves 
(or none) within a loop, > RESOLVE 
would need to be done a variable 
number of times. This is quite possible 
but a little tricky, so other methods 
have been proposed. 

One of these is for LOOP to work the 
same way, but for (DO) to carry a 
forward branch address to the word 
following (LOOP). At compile time, this 
forward reference is resolved by a 

> RESOLVE within LOOP. LEAVE 
compiles (LEAVE) and a backward 
reference to the forward branch 
address following (DO). This is the 
method proposed by Bill Stoddart 
(Forth Dimensions V/4). As he points 
out, this method allows a very simple 
implementation of a conditional do 
LOOP which is skipped entirely if the 
initial index and limit are equal. 

Another possibility also involves (DO) 
carrying a forward branch address, but 
at run time (DO) uses this address to put 
a third entry on the return stack, 
pointing to the word following (LOOP). 
This is then used by (LEAVE), which now 
needn't carry a branch address itself 
(and, in fact, leave needn't have been 
immediate at all, except that it is 
required to be so by the Standard). 
This is the method used by Laxen and 
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GO FORTH, UNIX! 
. . . with u4th 

UNIX/XENIX/FORTH DEVELOPERS 

Are you interested in improving your 
software productivity? Do you have a 
UNIX system or engineering work 
station? Now you can realize the 
exceptional capability of moving 
your Forth applications to the world 
of UNIX and XENIX. Experience the 
productivity enhancement of an inter- 
active programming environment, 
and still code in C when necessary. 

UBIQUITOUS SYSTEMS announ- 
ces u4th, the first Forth completely 
tailored for UNIX. u4th is a fast 
direct-threaded Forth written in port- 
able C, yet capable of execution 
speeds comparable to many assem- 
bler Forths. Great for Al research 
and delivery. 

Some of Its features are: 

• Access to standard UNIX system 
calls 

• Ability to incorporate new primi- 
tives written in C: easily installed in 
the Forth kernel image 

• Ability to load from UNIX files 

• AbilitytouseUNIXeditorssuchas 
vi as well as its own resident editor 

• Ability to compile defined Forth 
words into a new kernel image (for 
turn-key and source protected 
systems) 

• Object-Oriented Forth included! 

• Can pass commands through to 
UNIX 

• Largely compliant with the Forth- 
83 standard (except for word size 
and use of lower case) 



Perry. It involves a minimal run- time 
penalty over Stoddart's method, but 
saves two bytes (on most machines) for 
every LEAVE. The F83 model also 
includes the conditional DO (called 

?DO). 

Another method, which I have been 
using myself, is very similar except that 
the third return stack entry points to 
the word following the (DO) rather than 
to the one following the (LOOP). This 
way, (LOOP) does not need a branch 
address either, but is just as fast to 
execute. (LEAVE) requires an extra step 
to work out where to go, but this is 
hardly significant (on the PDP-1 1 , it is 
just one extra machine instruction). 

Just to draw things together, in all 
these methods, DO leaves a "mark" on 
the stack at compile time, which is used 
by LOOP to do these things: 

1 . Compile a backward branch address 
following (LOOP), that determines 
where the loop actually loops to. All 
methods except the last do this. 

2. Resolve a forward branch address 
following (DO). This determines where 
LEAVE actually leaves to. All methods 
except the first do this. 

Our proposed implementation of 
LOOP—FALLTHRU: should work for any 
Forth-83 system which performs as in 
point two above. The key fact is that if 
the loop falls through we don't branch 
anywhere, so we don't have to work 
out where to go at all. The forward 
branch address (when resolved as in 
point two) is not used for this. 

What will happen if, at LOOP, we 
don't perform that resolution right 
away? The fall-through situation won't 
be affected. But (LEAVE), instead of 
going to the next word after (LOOP), 
will go somewhere else — in fact, it will 
go to wherever we do perform the 
resolution. As mentioned earlier, our 
proposed construct is a bit like an if. 
As it happens, IF also leaves a mark on 
the stack for later resolution. So, 
basically, all we have to do is make 
LOOP—FALLTHRU: "trick" the compiler 
into thinking an if has been 
encountered. This is normally very 
easy. 

Screen 100 gives the relevant 
definitions as they exist in F83. 
?>MARK, etc. are versions of the 



standard >mark, etc. words, 
incorporating some error checking; 
namely, the pushing of a -1 under the 
mark on the stack. The corresponding 
resolving words >?RESOLVE, etc., 
check that the -1 is there. 

Now notice that LOOP resolves twice, 
although DO only leaves one mark. The 
phrase 2DUP 2+ in the definition of 
LOOP really has the same result as if DO 
had ?>MARK ?<MARK, which better 
makes clear what is being done. 
Logically, two separate marks are 
being resolved, one for a forward 
branch address following (DO) which 
allows (LEAVE) to work, and one for a 
backward branch address following 
(LOOP) so that it knows where to loop 
to. 

The definition of our new word is 
given on screen 101. Note that it is the 
same as loop with the ?> resolve left 
out. The ?< RESOLVE must be there, as 
it compiles the address used by (LOOP). 

That is all there is to it. When then 
comes along, the mark that we didn't 
resolve at the end of the loop is 
resolved by ?> RESOLVE as though 
nothing unusual were happening. If 
(LEAVE) is later executed, it will leave to 
this point. 

As the FSB error checking is identical 
for all control structures, nothing 
special need be done about the -1 flag. 
If your implementation uses more 
elaborate error checking, however, 
with a different flag value on the stack 
for each construct (as in fig-FORTH), 
LOOP—FALLTHRU: will have to alter the 
flag value to the correct one for IF. 

A couple of extra points: 

1 . LOOP—FALLTHRU: Can be followed by 
an ELSE as well as by a THEN. The ELSE 

phrase will be executed if LEAVE is 
executed in the loop. This may be 
useful if a loop has a number of LEAVES 
which all require some common action 
to be carried out. 

2. FSB includes the conditional ?D0 
LOOP, as mentioned above. The 
address used by (?D0) to skip the loop is 
the same used by (LEAVE). Thus, if 
LOOP—FALLTHRU: is used with ?DO and 
the loop is skipped, it will look as if a 
LEAVE has been taken. This shouldn't 
be a problem, but should be kept in 
mind. 



UBIQUITOUS SYSTEMS offers u4th 
in the following formats: 

• XENIX (MS DOS format) floppy 
disk (IBM PC/XT, PC/AT) 

• Plexus tar format cartridge tape 
(Plexus P/35, P/60) 

• More on the way! 

Binary license: Xenix $395.00 
Plexus $895.00. OEM's: Special terms 

UBIQUITOUS SYSTEMS 

13333 Bellevue-Redmond Road N E. 
Bellevue. Washington 98005 

(206) 641-8030 

9:00 a.m. -noon Weekdays 

'N!X T M ■ AT ! xt NIX. TM. MICROSOf-T 
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Screen 100 



( Some control structures as per Laxen/Perry F83 
1 

IF COMPILE ?BRANCH ?>MARK 

THEN ?>RESOLyE 



COMPILE <D0> 



?>MARK 



DO 
LOOP 

COMPILE <LOOP> 2DUP 2+ ?<RESOLVE ?>RESOLME 
♦ LOOP 

COMPILE <+LOOP) 2DUP 2+ ?<RESOLVE ?>RESOLVE 



2 
3 
4 
5 

7 
8 
9 
10 
1 1 
12 
13 
14 
15 



Screen 101 

< LOOP—FALLTHRUi •for Laxen/Perry F83 
1 

2 ! LOOP—FALLTHRUi 

3 COMPILE (LOOP) 20UP 2+ ?< RESOLVE 
4 

5 : +LOOP— FALLTHRU: 

6 COMPILE <+LOOP) 2DUP 2+ ?< RESOLVE 
7 

8 < Example of use: ) 

9 

10 : LOOKUP < value table-addr Gentries ~ addr' i 

11 OVER + SWAP 

12 DO 18 OVER = IF DROP I LEAVE THEN 

13 LOOP—FALLTHRU ; DROP THEN ; 
14 

15 CREATE TABLE 1 ,2,3,4,5, 



100 LOAD 101 LOAD 

ok 
TABLE . 
21212 ok 
1 TABLE 5 LOOKUP 
21212 ok 
3 TABLE 5 LOOKUP 
212U ok 
9 TABLE 5 LOOKUP 
ok 



Jul84MRH ) 

i IMMEDIATE 
; IMMEDIATE 

; IMMEDIATE 

i IMMEDIATE 

I IMMEDIATE 



Ju184MRH ) 



IMMEDIATE 



IMMEDIATE 



) 



FORTH Dimensions 



20 




PolyFORTHII 

the operating system and 
programming language for 
real-time applications involving 
ROBOTICS, INSTRUMENTATION, 
PROCESS CONTROL, GRAPHICS 
and more, is now available for. . . 

IBM PC* 

PolyFORTH II offers IBM PC 
users: 

• Unlimited control tasks 

• Multi-user capability 

• 8087 mathematics co- 
processor support 

• Reduced application 
development time 

• High speed interrupt 
handling 

Now included at no extra cost: 
Extensive interactive GRAPHICS 
SOFTWARE PACKAGE! Reputed 
to be the fastest graphic package 
and the only one to run in a true 
multi-tasking environment , it 
offers point and line plotting, 
graphics shape primitives and 
interactive cursor control. 

PolyFORTH II is fully supported 
by FORTH, Inc.'s: 

• Extensive on-line 
documentation 

• Complete set of manuals 

• Programming courses 

• The FORTH, Inc. hot line 

• Expert contract programming 
and consulting services 

From FORTH, Inc., the inventors 
of FORTH, serving professional 
programmers for over a decade. 

Also available for other popular 
mini and micro computers. 
For more information contact: 

FORTH Inc. 

2309 Pacific Coast Hwy. 
Hermosa Beach, 
CA 90254 
213/372-8493 
RCA TELEX: 275182 
Eastern Sales Office 
1300 N. 17th St. 
Arlington, VA 22209 
703/525-7778 

'IBM PC is a registered trademark of International 
Business Mactiines Corp. 
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The Far Right Stuff 



Mike Perry, et al. 
Berkeley, California 

There are those among us who are 
attempting to advance by only one 
generation of computer technology. It 
is just such an egregious lack of 
imagination which has put us into the 
dire straits in which we find ourselves 
today. Why stop with the fifth 
generation, when logic has already 
taken us as far as it can? It is time to 
throw off the Markov chains which 
have bound our thinking for so long. 
Let us retain our integrity and not sink 
into a morass of floating points. 

In short, I propose that work begin 
on a sixth generation computer. When 
the knowledge-based expert systems of 
the fifth generation have exhausted the 
possibilities of mere rational thought, 
all eyes will turn to the potential of the 
irrational. It is not too early to develop 
intuitive machines, which I Hke to 
think of as ignorance-based 
assumption systems. They will, of 
course, use irrational logic gates, which 
are based (naturally) on the natural 
number base (2.7 et cetera). Ordinary 
logical reasoning can be compared to a 
chain: an inference is only as strong as 
its weakest hnk. Intuitive reasoning is 
more like a rope: no one strand is very 
strong, but when tightly coupled into a 
rope, conclusions are bound to be 
inescapable. The possibilities are 
imponderable. 

There are many advantages to sixth 
generation machines. For one, 
ignorance systems will consume very 
little power: as everyone knows. 
Knowledge is Power. They can be built 
from some well-known illogic gates, 
such as the ignorance gate (don't 
confuse me with the facts), the obvious 
gate (as any fool can clearly see) and 
the sure-thing gate (it's in the mail). As 
all of these are output-only devices, no 
input will be required, greatly 
simplifying system design. This will 
lead to replacement of the old 
computer adage "Garbage In, Garbage 
Out" by simply "Garbage Out." 

Performance measurement will also 
be affected. Instead of MIPS (millions 
of instructions per second) or KLIPS 



(kilo logical inferences per second), the 
sixth generation machines will be 
measured in DUPES (deca 
unreasonable predictions each second). 

New languages will be required. As 
demonstrated below, the older 
languages were very limited: 

ASCRAMBLER The first languages 
were an improvement over their 
predecessors, and helped to enhance 
problems to truly macroscopic 
proportions. 

FORTUITOUS Filled an array of 
real needs at first, but it was beginner's 
luck. Neither its backus nor anyone 
else would recognize it now. 

GOBBLE Government Organized 
Big Business LanguageE was a real 
turkey, too wordy and difficult to 
pronounce. Its users were renowned 
for their weight-lifting abilities. 

GARGOYLE BEGIN GARGOYLE 
: = ACADEMIC. It had a Hoareable 
appearance, AND was cursed time and 
again. It was super-setted by RASCAL 
in the END. 

SIMPLE 10 Basically too complex 
and hard to use. 20 Abused the 
powerful COME-FROM construct. 

LISTLESS (and (used Polish 
notation) (put old parentheses on a 
garbage heap)). 

RASCAL While not without its 
Wirth, it was unforgiving and not 
really modular, too. 

FROTH At first, even its starry-eyed 
followers thought it would not float, 
but when it came un-Moored they 
could see that it did. On the stack it 
pushed more than once has been. 

GOSSIP A classy language which 
supported chatting in both back-fence 
and window modes. Some objected to 
passing this sort of messages, feeUng 
that some facts were better kept 
private. 

SEA {often confused with OCEAN; 
it is actually rather uniques;} SEA 
was one inspiration for the saying, 
"I'm elegant, you're terse, he's 
unreadable." 

MONOLITH To make RASCAL 
suitable for numerous tasks, new types 
of checking were implemented for a 
program's definitions. A recent export 
of great import. 



ADORD The official language of 
the Department of Redundancy 
Department, who decided to Boole 
their resources. Before it is valuable, it 
will be dated. 

PROLONGED If the inferences of 
some experts are proved correct, then 
its deductions may eventually lead the 
way toward superficial intelligence. 

OXYMORON Allows an Ocean of 
disputer processors to run the RISC of 
producing abysmal results. Sort of a 
contradiction in teams. 

To solve the problems caused by 
sixth generation machines, new 
languages will have to be created. Here 
are a few possibiUties: 

GUESSWORK Can be used to 
implement functions Uke What-Did-I- 
Mean? 

ABSURD Uses backward inference 
to reduce the solution until only the 
problem remains. Given a hyper- 
theoretical situation, it expands the 
problem until it interferes with the 
solution, thus disproving the result. 

As grand as these schemes may 
sound, let us not think that the sixth 
generation is in any way the ultimate. 
Already the characteristics of the 
seventh generation are becoming 
apparent. Taking the chance of 
combining the best features of 
irrational logic with the technology of 
virtual machines, we will at last see real 
imaginary computers. This will lead to 
the replacement of the old saying, 
"Never trust a computer you can't 
lift" by the new adage, "Never trust a 
computer big enough to see." 
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Forth Conference 



June 12-15, 1985 



University of Rochester 



Rochester, New York 



The fifth Rochester Forth Conference is sponsored by the institute for Applied Forth Research, Inc. in 
cooperation with the Laboratory for Laser Energetics of the College of Engineering at the University of Rochester, the 
Rochester Section of the IEEE, and the Rochester Chapter of the IEEE Computer Society. 

The focus of the Conference is on software Management and Software Engineering. The invited speakers 
will discuss the use of Forth in large projects, modifications to the language aimed at improving productivity, and 
contrast its use in business and scientific environments. In addition, presented papers will cover many aspects of 
implementing and applying Forth, including robotics, graphics, Forth chips and real-time systems. Forth novices, 
programmers, implementors, and project managers will find these presentations useful and pertinent to their work. 

The final day of the Conference win be open to the public, and devoted to tutorials, demonstrations 
and presentations by Forth vendors, panel discussions, and poster presentations. All those interested in learning about 
Forth, or in seeing the most current Forth products available are invited to attend this day at no charge. 

The registration fee includes all sessions, meals, and the Conference papers. Lodging is available at 
local motels or in the UR dormitories. Registration will be from 3-11 p.m. on Tuesday, June 11th, and from 8 a.m. 
Wednesday the 12th in Wilson Commons. There is an hourly shuttle to the airport during registration and checkout. 
Sessions will be held in Lower Strong Auditorium, and the open day will be in Wilson Commons. 

Those wishing to present papers should submit an abstract by March 30th, and a final paper by 
April 30th. Papers longer than four single-spaced pages will be submitted to the Journal of Forth Application 
and Research for review, while shorter papers and abstracts will appear in their submitted form in the Conference 
Proceedings. Abstracts and papers should be sent to the Conference Chairman, Lawrence P Forsley, Laboratory 
for Laser Energetics, 250 East River Rd., Rochester, New York 14623. 

For more information, call or write to Maria Cress at the Institute, 70 Elmwood Ave., Rochester, NY 14611. 
Phone: 716-235-0168. 



Payment must accompany registration. Checks should be payable to the Rochester Forth Conference. Please mail your registration by May 15th to 
the Institute for Applied Forth Research, Inc., 70 Elmwood Avenue, Rochester, New York 14611. 

Name - ^ ^ . — ■ 

Address . - - - — ^ — 



Telephone 

Registration: $325, Full-time students $200. 

Dormitory Housing, 5 nights: Single $100, Double $75. 



Registration Form 



Prefer non-smoking roommate Vegetarian meal option 

I am unable to attend. Please send information on obtaining the Conference Proceedings. 



Total Enclosed: 



Selected 
Publications 



The Forth Interest Group Order Form (on the reverse side of this page) has two newly added publications selected by the 
FIG Publication Committee: 

Forth Tools and Applications 
1984 FORML Proceedings 



Forth Tools and Applications 

by Feierbach and Thomas 

Here is a book on Forth written for the 
programmer who knows the language and now 
wants to learn how to use it. Provided in this 
book are the standard tools required to quickly 
create and debug Forth-base applications. 

FORTH tools and Applications first gives you 
the advice you need to design your own 
programs. It also presents a number of 
techniques to aid you in the debugging process. 
Finally, you'll take a close look at a variety of 
utilities that can become a part of your final 
application — utilities such as file data selection, 
sorting and merging, binary search, and floating 
point. 

Throughout this book the 79 Standard dialect is 
used with fig-FORTH words appearing where no 
79 Standard is available. An appendix at the 
end of the book completely covers both dialects 
for your ease of reference. 

As you master the tools of Forth programming, 
this book helps you develop good programming, 
documentation, and debugging skills. 

Discover the fun of programming your own 
software systems with this popular new machine- 
free language. Let FORTH tools and 
Applications be your guide to the countless 
applications open to you with FORTH 
programming. 



1984 FORML Proceedings 

The proceedings from the 1984 Forth 
Modification Laboratory are now available and 
may be purchased from the Forth Interest 
Group. The FORML Conference, held each 
November at Asilomar, California, is an 
opportunity for serious Forth programmers to 
share new applications and ideas with the 
attendees and programmers around the world 
through the publication of the proceedings. 
Order today and make the 1984 FORML 
Proceedings a part of your Forth library. 

All Memberships Expire in April 

Don't forget to renew your FIG membership. If 
you haven't already renewed, return the renewal 
envelope (in this issue) to receive your next 
Forth Dimensions without a lapse in 
membership. 

All members will receive membership cards 
which allow a 10% discount on publications sold 
by FIG. Your member number will be required 
to receive the discount, so keep it handy. 



Foreign members should note the new pricing 
schedule on the order form. In addition to the 
foreign air rate, FIG is now offering a surface 
rate for shipments to countries outside the US, 
Canada and Mexico. Please allow extra delivery 
time for surface orders. 
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Pollard's 

Monte Carlo 

Nathaniel Grossman 
Los Angeles, California 

The factoring of integers is an old 
mathematical problem: given an 
integer N > 2, the goal is to find two 
other integers R and S, each > 2, such 
that N = RS. If R and S exist, N is 
called composite and the integers R 
and S are (non- trivial) factors of N. If 
no such R and S exist, the integer N is 
called prime. The so-called 
Fundamental Theorem of Arithmetic 
states that every integer > 2 can be 
expressed as the product of prime 
integers and, except for the order in 
which the factors are listed, in one way 
only. There is considerable importance 
attached to the task of determining 
which integers are prime and of finding 
ways to express the remaining integers 
integers as a product of prime factors. 

About the status of this problem 
there is good news and bad news. The 
good news is that there is an absolutely 
sure algorithm for testing primality 
and for factoring. (It turns out that 
there are complicated algorithms which 
test for primality relatively quickly if a 
factorization is not required for those 
numbers found to be composite.) If the 
number N has non-trivial factors, at 
least one of them must be no larger 
than VN. To find such a factor, it 
suffices to divide N by each integer 
greater than one and no larger than 
VN: if one of those trial divisions 
leaves no remainder, the divisor is a 
factor of N. If no trial division is 
without remainder, N is prime. The 
bad news is that this algorithm, sure to 
take no more than VN divisions, may 
for certain N require essentially VN 
divisions. For many integers of current 
interest, that many divisions is beyond 
the capability of today's fastest 
computers to complete within an 
acceptable time. Nevertheless, it is 
possible to attack large numbers with 
the hope of successful factoring by 
employing one of several strategies. 
This paper will show how one of those 
strategies can be implemented. 

Those interested in an overview of 
the most intense efforts to factor very 
large numbers will find an excellent ac- 
count of the principal methods and of 



Factorizer 

the notable successes and failures in a 
recent article written for non-special- 
ists by H. C. Williams.^ My account of 
"wheels" and of Pollard's method is 
drawn from that article and from 
Pollard's original announcement.^ 

Wheels 

Before going to Pollard's method it 
will be worthwhile to describe a 
technique for improving upon the 
"naive" division test mentioned 
above. The difficulty there arose 
because an unacceptable number of 
divisions might be required to test an 
integer N and there was no way to 
predict in general whether testing of a 
"random" N would be easy, hard, or 
essentially impossible. If a scheme 
could be devised for substantially 
cutting down the number of trial 
divisions, the method might become 
acceptable, depending on the computer 
and the time available for carrying out 
the computation. 

If space is available, the list of all 
prime numbers no larger than a certain 
integer L can be stored in memory. In 
performing the trial divisions on N, 
only the stored primes need be used as 
trial divisors among the integers <L. 
As the number of primes less than L is 
about L/log L, this can lead to a 
substantial saving in computation: 
only about 12% of the integers less 
than 10,000 and about 7.8% of those 
less than 1,000,000 are primes, 
compared with the 50% that are odd 
numbers. 

If there is but a little storage 
available, savings can be made by 
means of an artifice that specialists call 
a wheel. As an example, note that the 
subject integer N can be tested easily 
for divisibility by 2, 3, and 5, and such 
factors removed. It is easy to see as a 
consequence that a trial divisor D need 
not be considered unless the remainder 
when D is divided by 30 can be found 
in the list 1,7, 11, 13, 17, 19, 23, 29. 
(All the remaining remainders are 
divisible by at least one of 2, 3, or 5.) 
This restriction reduces the number of 
trial divisions by a factor of 8/30 to 
about a quarter of the original. The 
eight numbers 1 , ... 29 are the 
"spokes;" after the spokes are run 



through, the wheel is given another 
"turn" by addition of the product 30. 
Wheels with a great number of spokes 
have been used successfully. Note that 
the proportion of savings from use of a 
wheel is constant no matter how long 
the sequence of trial divisors is to run. 
Pollard's Method 

Trying all suspect divisors or just a 
proportion of them is not practical if 
the integer N is even "moderately" 
large. Pollard proposed two methods 
for selecting more promising divisors 
and thereby cutting back on the 
number of trials. These methods are 
especially useful nowadays when 
computers take the drudgery (if not the 
waiting) out of numerical 
computations. Trials at factoring that 
end in failure can be put up with 
because after the introduction of the 
new, ingenious factorization methods, 
"several failures in a row were of no 
particular importance, as long as they 
were followed by at least one success." 
(Morrison and Brillhart^) One of 
Pollard's methods, called first by him 
the p-method and then the Monte 
Carlo method, is well suited to 
implementation on a personal 
microcomputer. I have implemented a 
(slightly simplified) form of the Monte 
Carlo method on an Apple lie 
computer in the Forth language. 

The idea behind the Monte Carlo 
method is quite simple. '••^ Suppose the 
integer N to possess a prime factor p 
that we seek. Fix a non-linear 
polynomial f(x) with integer 
coefficients. Choosing a starting 
integer Xj, generate X2, X3, ... by 

setting x^. = f(''k-l) '""^ ^- ''^^e 
x-values may be well scattered 
throughout the interval from to N-1. 
If, however, the x's are again reduced 
mod p and if p is "small," the newly 
reduced x's will begin to pile up in the 
interval for to p-1. If f(x) is also 
chosen to have "random" output, it is 
to be expected that soon two of the x's 
will be equal mod p. Of course p is 
unknown, but the two x's, say Xj and 
Xj, will be such that Xj-Xj is divisible by 
p. Thus p will be a divisor both of Xj-Xj 
and N, so that p will be found as a 
factor of the greatest common divisor 
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gcd(Xj-Xj, N). 

The words "random" and "Monte 
Carlo" suggest that some probabiHstic 
engine is at work. That is not so: what 
is required is that f(x) spread the values 
generated widely and "uniformly" 
throughout the integers less than N. 
Whatever that means, it turns out that 
any quadratic polynomial 
f(x) = x^ + b seems to work 
satisfactorily provided that h4 0, -2. 
(Linear functions are not suitable.) 

If the newly-generated x's were to be 
compared with each of the earher- 
generated x's, the resulting storage and 
retrieval and the necessary 
computations of greatest common 
divisors would complicate and prolong 
the calculations to no clear benefit. 
Instead, the algorithm is pared down 
and simphfied - all that matters is that 
there be at least one success! Start with 
x, and generate X2 = f(xj). Then begin 
cycles composed as follows: supposing 
,the pair (Xi,X2i) available at the 
beginning of the i^*^ cycle, complete the 
cycle by computing (Xi_^j, X2i+2) and 
gcd(x2j + 2-X2i,N). Because Xi_^i = f(Xi) 
and X2i + 2 = f(f(x2i)), the production 
of the new pair is straightforward, 
especially because the calculations are 
carried out mod N. The cycles roll on 
until the greatest common divisor takes 
a value R > 1. Then the calculations 
will stop because R is a factor of N 
greater than one. Unfortunately, it can 
happen that R = N. 

Pollard"* gives estimates for the 
number of cycles required to factor N. 
If p is the smallest divisor of N, Pollard 
builds on results reported by Knuth to 
show that the expected number of 
cycles needed to produce a non-trivial 
factor of N is about 1.0308Vp. 

As an example, with the polynomial 
f(x) = + 1 and Xj = 6 and with 
the implementation described below, 
the decomposition into two prime 
factors 

4,225,910,033 = 65,003 x 65,011 

appears after 335 cycles. (The Pollard 
expected number of cycles is 263.) 

In Pollard's formulation, the Monte 
Carlo method is slightly more 
complicated than I have described it 
here. (I give the full description in my 
discussion below of screen #4.) Using a 



further small extension of the method 
and a lot of mulit-precision arithmetic, 
Brent and Pollard' factored the eighth 
Fermat number, Fg = 2^^^ + 1, into 
the product of two prime factors. 
Although Fg has seventy-eight decimal 
digits and the smaller of the two prime 
factors has sixteen, the calculation was 
performed on a Univac 1100/42 
computer in just two hours of time. 

(The Fermat numbers = 2^ +1 
are primes for n = 0,1,2,3,4. Fermat 
conjectured the primality of all F„, but 
Euler showed the divisibility of Fj by 
641. Unfortunately, F^ is just past the 
range of the present implementation, 
which factors numbers N < 2^^.) 

Implementation of Pollard's Method 

The Monte Carlo method rests upon 
one hypothesis: that the number N to 
be factored has a "small" prime 
factor. Suppose, for the sake of 
argument, that N < 232. Then, if N 
factors, it must be divisible by a prime 
p < 2'6, and Pollard's estimate 
predicts that the algorithm should be 
expected to find a factor of N divisible 
by p in no more than 2^ cycles. To run 
the algorithm on a personal computer 
such as an Apple II under such 
circumstances will entail no intolerable 
wait for the results. Suppose, however, 
that 2'6 < N < 2^2, and that N is a 
prime. If N is close to 2^2^ might 
expect to wait about 2'^ cycles for the 
results. However, there is no need to 
wait so long. If N were not a prime, it 
would be factorable and factors would 
be discovered in far fewer steps. 
(Pollard estimated from numerical 
experiments that the number of cycles 
needed to find the smallest prime 
factor p would be > 2Vp with 
probability about 0.065.) 

If the number N to be factored is 
"large," there is no a priori reason to 
expect a "small" prime factor. For 
that reason, Williams^ calls Brent and 
Pollard "lucky" in their attempt to 
factor Fg. For the same reason, there 
seems no pressing need to implement 
the Monte Carlo method to higher 
precision on a personal computer. 
Those whose profession it is to factor 
large numbers — number theorists, 
cryptographers, and specialists in the 
design of computations — will have 
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access to the giant number-crunchers. 
It seems reasonable, therefore, to set 
the goal of factoring numbers <2^^. 
This modest goal can be reached with 
the aid of the ordinary Forth language 
tools enriched by the Double-Number 
Extension Word Set, provided that two 
or three further words are added to the 
dictionary so that certain double- 
quadruple operations can be carried 
out. Those who carry out the 
implementation will get an inside look 
at this interesting factorizer, an 
algorithm that, within its clear 
limitations, works well. 
My implementation is given in the 



screens #0 through #8. The 
documentation in screen #0 extends 
into screen #1 and is not part of the 
program. In fact, there is something 
missing: definitions for the words 
DUM*, DUM/, and OUM/MOD, the actions 
of which are specified on screen #0. I 
have given there suggestions on how to 
supply these words. Those who have 
floating point extensions to their Forth 
Systems may find equivalents 
contained therein. (I use the version 
furnished with the floating-point 
extensions to MicroMotion 
MasterFORTH. They are written in 
6502 assembler and, consequently. 



F0RTH-S3 19AUB84N6 



SCR I 

\ Pollard's Honte Carlo Factorizer 
I 

2 This file contains a lethod for factoring integers published 

3 by J. H. Pollard in BIT 15(1975), 331-334. 

4 The iipleientation calls on several extensions of the Double- 

5 Nuiber Extension Word Set froi the Forth-B3 Standard: 

6 DUH» expects tito unsigned double factors on the stack and 

7 pushes their unsigned quadruple product onto the stack — 

8 DUH/ expects a uq dividend inside a ud divisor and pushes a ud 

9 quotient onto the stack. (User lust assure suitable data to 

10 give a genuine ud quotient.) — 

11 DUH/HOD is siiilar to DUH/, leaving a ud ret inside a ud quot. 

12 Such Mords light be built froi D. A. Beers' 'Quadruple Hord 

13 Siiple Arithietic' in Forth Diiensions IV/1, p. 17. The word 

14 UD/HOD given by N. Erosstan, "Long Words and Short Fractions," 

15 Forth Diiensions (to appear), could be used to [cont on scr tl] 
SCR # 1 

\ loader FORTH-83 i9AU684N6 

1 

2 : MARKER ( null action) ; 2 9 THRU 
3 

4 \ [cont. froi scr 11] 

5 \ write DUH/ and DUH/HOD. Users of HicroKotion HasterFORTH 

b \ Mill find DUHt, DUH/, and DUH/HOD in the floating point exten- 

7 \ sion, located in the file DOUBLE and written in 6502 assetb- 

8 \ ler. They should add the files ASSEHBLER and DOUBLE to the 

9 \ dictionary. 

10 \ This screen loads the file POLLARD and lakes available the 

11 \ factoring words FAC and FAC. The sequences <ud> FAC or 

12 \ <ud> FAC result in printing either (not necessarily priie) 

13 \ factors of <ud> or a warning that the cycles have reached in 

14 \ nuiber the upper liiit stored in the variable AT.HOST (scr 13) 

15 \ without finding factors. The liiit is arbitrarily lade 1000. 



they are fast.) 

Screen #2. The algorithm is built on 
the quadratic interative polynomial 
f(x) = + h. The numbers x and b 
are always to be double integers. To 
give leeway for experimentation, b is 
stored in the 2-variable 
INCREASE_SQUARE with the default 
value 1. This gives the default 
function: f(x) = x^ -i- 1. SQ(MOD)* 
computes f(x) mod N and NEW_BAIR 
turns the pair (Xi,X2i) into the pair 

Screen #3. There is some interest in 
keeping count of the number of cycles; 
that number is stored in the variable 
COUNT. The variable AT_MOST 
furnishes the only non-destructive way 
to halt the onrushing cycles. It is set to 
the default value 1000. 

Screen #4. The word DGCD computes 
the greatest common divisor of two 
double integers held on the stack. It is 
based on the word of the same name in 
my paper^ "Long Divisors and Short 
Fractions," but with DUM/MOD 
replacing the word UD/MOD defined in 
that paper. 

The greater share of the calls to 
DUM/MOD occur within DGCD, so that 
the running time of the algorithm 
might sometimes be reduced by 
Pollard's artifice of storing products 



m 

n_ = n 

i=l 



m 



(x2i - Xj) mod N 



and testing gcdQl^,N) only for selected 
m — he suggests those m divisible by 
100. In the present case, the algorithm 
may run only two or three cycles before 
announcing factors of N. For large 
numbers such as Fg, it may be assumed 
that preliminary trials have searched 
for and failed to find "small" prime 
factors. In such cases, introduction of 
Yl^ and resulting manipulations makes 
sense, and will lead to substantial 
savings in computing time. Here, 
programming it does not seem worth 
the bother. 

Screens #7 and #8. Here are two 
versions of the Monte Carlo algorithm 
differing only in their display. Each 
expects the double integer N on the 
stack and each returns a message either 
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SCR t 2 

e \ Sequence and pair generators FQRTH-83 19ftUB84N6 

I 

2 2VARIABLE INCREASE.SQUARE 1. INCREASE.SQUARE 2! 
3 

4 : SQIHOD)+ \ d dl --- d d2 

5 2DUP DUn» \ dl»dl 

6 5 PICK 5 PICK 

7 DUH/HOD 2DR0P \ aod d 

8 INCREASE.SQUARE 2« D+ ; \ add offset 
9 

le : NEH.PAIR \ d d2 dl — d d4 d3 

11 5 PICK 5 PICK 2SWP 

12 SQ(nOD)+ 

13 2SMAP 5 ROLL 5 ROLL 

14 SQ(HOD>+ SQ(HOD)^ 

15 2SHAP 2DR0P 2SHAP ; 
SCR I 3 

a \ Conveniences FORTH-83 19AU684N6 

1 

2 VARIABLE COUNTER VARIABLE AT.HOST 1000 AT.NOST ! 

3 2VARIABLE FIRSTJ 6. FIRSTJ 2! 
4 

5 ! SETUP POLLARD \ d — d d2 dl 

6 COUNTER ! FIRSTJ 28 SQ(HOD)+ FIRSTJ 28 5 

7 

8 : INCREASE.COUNTER \ — 

9 1 COUNTER +! ; 
10 

11 : .COUNTER \ — 

12 COUNTER 8 5 D.R ; 
13 

14 ! .NEN.PAIR \ d d2 dl — d d2 dl 

15 2DUP 12 D.R 2SWAP 2DUP 12 D.R 2SNAP 5 



stating factors of N or reporting that 
the algorithm has QUrr after carrying 
out AT_MOST cycles. If N is a prime 
and factors are reported, they will be N 
and 1 . In between the startup and the 
message, the display will report 
progress: MONTE_CARLO_FACTOR' 
shows the triples i, Xj, scrolling 
upward and monte_CARIjO_factob 
displays anxiety-quelling dots 
marshalled into rows, one dot 
appearing for each cycle begun. 

I find it convenient to enlarge the 
dictionary by aliases FAC' and FAC for 
those long names. 



Examples: 

(i) 2,771 factors into 17 times 163 
in 5 cycles. 

(ii) 9,221 needs 235 cycles before it 
proclaims its factorization into 
9,221 times 1 (it is prime). 

(iii) 314,159,265 is factored into 
315 times 997,331 (neither 
prime) in two cycles. 

(iv) The Mersenne number 

M29 = 229- 1 = 536,870,911 
is broken down into 486,737 
times 1103 in 13 cycles. 

(v) 1,234,567,891. FAC returns 
1,000 dots followed by the 
message "After 1000 cycles, no 
factor of 1234567891 has been 
found." 

(vi) 4,225,910,033. FAC returns 335 
dots and the message "The 
number 4225910033 factors 
into 65011 times 65003 (335 
cycles)" and runs in about 40 
seconds. 

(vii) If N is prime, FAC will 
eventually return N and 1 as 
its factors provided no more 
than AT_MOST cycles run. 
However, returning N and 1 
does not mean that N must be 
prime. 1,007. FAC returns the 
factors 1007 and 1 after 5 
cycles, but 

13. INCREASE—SQUARE 2! changes 
the iteration function to 
x2 + 13, after which 1007. FAC 
returns factors 53 and 19 in 2 
cycles. Also, use of 



f(x) = x2 + 17 returns factors 
19 and 53 in 3 cycles, {''several 
failures in a row were of no 
particular importance, as long 
as they were followed by at 
least one success.") 
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SCR t 4 

e \ Greatest coiion divisor F0RTH-B3 19AU684Ne 

1 

2 : D6CD \ di d2 — d i = double nuiber gcd of dl and d2 ) 

3 BEGIN \ the eudidean algoritht 

4 2SUAP 20VER 

5 >R >R 8. R> R> 
h DUH/nOD 2DR0P 

7 2DUP 08= 

8 UNTIL 2DR0P ; 
9 

18 i D6CD.STACKER \ d d2 dl — d d2 dl d3 

11 \ pushes gcd of d2-dl and d onto stack as a double 

12 20VER 20VER D- DABS 

13 7 PICK 7 PICK 

14 DGCD ; 



SCR t 5 

8 \ Conveniences FORTH-83 19AUG84NG 

1 

2 : IS.GCD.>.1? \ d d2 dl d3 — d d2 dl d3 f 

3 2DUP 1. 2SHAP DU< ; 
4 

5 : DU. \ ud. — ; print an unsigned double nuiber 

b (III IS l> TYPE SPACE ; 

7 

8 ! .FACTORS \ d d2 dl d3 — 

9 2SHAP 2DR0P 2SHAP 2DR0P 
18 20VER CR 

11 ."The nuiber " DU. factors into " 2DUP DU. 

12 tiies ' 8. 2SHAP DUH/ DU. ; 



SCR t & 

8 \ Warning FORTH-83 19AUG84NB 

1 

2 : ROADRUNNER 

3 BEEP BEEP ; 
4 

5 ! .WARNING \ d d3 d2 dl — 

6 CR CR 

7 ."After " AT.HOST 8 . 

8 ." cycles, no factor of " 

9 2DR0P 2DR0P 2DR0P DU. 
18 ." has been found. " 
11 ROADRUNNER ; 
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FOR TRS-80 MODELS 1 , 3 & 4 
IBM PC, XT, AND COMPAQ 



SCR t 7 

e \ Pollard's Honte Carlo Factorizer' 
1 

2 : HONTE CARLO FACTOR' \ d — 



FORTH-83 19AUB84NS 



3 
4 
5 
6 
7 
8 
9 

18 

U 



\ initialize counter and stack 



SETUP.POLLARD 8. 
BEGIN 
INCREASE.COUNTER 

AT MOST i COUNTER § U< \ too lany cycles? 
if' .warning quit THEN 
2DR0P 

CR .COUNTER 
NEH.PAIR .NEW.PAIR 
DGCD.STACKER is.BCD_>J? 

12 until" 

13 ROADRUNNER 

14 CR CR .FACTORS CR CR ; 



SCR t 8 

8 \ Pollard's Honte Carlo Factorizer 
1 

2 : HONTE CARLO FACTOR \ d — 



FORTH-83 19AUB84N6 



3 


SETUP.POLLARD 8. CR \ initialize counter, stack, display 


4 


BEGIN 




5 


INCREASE COUNTER 




6 


AT HOST § COUNTER 6 U< 


\ too lany cycles? 


1 


if' .warning quit then 




8 


2DR0P ASCII . EHIT 


\ print . for watcher's sake 


9 


NEW.PAIR 




le 


DGCD STACKER IS.GCD.).!? 




11 


UNTIL 




12 


ROADRUNNER 




13 


CR CR .FACTORS CR CR 




14 


ASCII ( EHIT 32 EHIT COUNTER 6 . ." cycles )" ; 



SCR I 9 

8 \ Short aliases 
1 

2 : FAC HONTE.CARLO.FACTOR' 
3 

4 ! FAC HONTE CARLO FACTOR 



THREE TOUGH 

QUESTIONS 

WITH ONE EASY ANSWER: 

1. WHEN IS A COMPUTER 
LANGUAGE NOT A LANGUAGE? 

MMSFORTH includes DOS, 
Assembler and high level 
commands and extraordinary 
utilities, extends to become any 
other language (or application), is 
an interpreter and a compiler, and 
Is remarkably fast and compact! 

2. WHICH SOFTWARE RUNS THE 
SAME DISKS IN IBM PC AND 
TRS-BO MODEL 47 

MMSFORTH disks run on those 
and Compaq, and TRS-80 Model 
3, and Tandy 1200, and TRS-80 
Model 1, and AT&T 6300, etc., with 
your choice of formats up to 200K 
single-sided or 400K double-sided! 

3. WHO OFFERS SOURCE CODE 
WITH ITS LANGUAGE, 
UTILITIES, DATABASE, WORD 
PROCESSOR AND 
COMMUNICATIONS 
SOFTWARE? 

Nearly all MMSFORTH software 
includes source code. 
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All the software 
your computer may ever need. 

The total software environment for 
IBM PC, TRS-80 Model 1 , 3, 4 and 
close friends. 

• Personal License (required): 

MMSFORTH Syilwtl DM (IBM PC) .... $249.05 
MMSFORTH Syttom DM (TRS-80 V 3 or 4) 129.95 

• Personal License (optional modules): 

FORTHCOM comnunicatlons module . . . S 39.95 

UTILITIES 39.95 

GAMES 39.95 

EXPERT-2 expert system 69.95 

DATAHANDLER 59.95 

DATAHANDLER-PLUS (PC only 128Kreq.| 99.95 

FORTHWRITE word procassor 175.00 

• Corporate Site License 
Extensions <ram $1,000 

•Some recommended Forth books: 

UNDERSTANDING FORTH (overview) ... $ 2.95 

STARTING FORTH (programming) 1S.95 

THINKING FORTH (technique) 15.95 

BEGINNING FORTH (re MMSFORTH) . . . 19.95 
Shipping/handling & tax extra. No returns on software. 

Ask your dealer to show you the world of 
MMSFORTH, or request our free brochure. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 
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TDS900 OMOS FORTH COMPUTER 



$230 



Sir^le board Eurocard FORTH computer. Entirely C-MOS, con- 
sumes typically 16mA. Uses 6303 8/16-bit processor with hardware 
multiply, timer, and serial interface. Unused op-code trap 
forces processor back to FORTH. Has 12K RAM and an additional 8K 
spare socket. Most memory can use EPROM in place of RAM for ded- 
icated applications. Fig-FORTH language with many other useful 
real-time words added and a full-screen editor working with dumb 
CRT terminals. Data, address and control buses are brought to 
the 64-pin indirect connector. The system is expandable by use 
of 6800, 6300 or 6500 series peripheral devices. 



TDS901-X NON-VOLATILE FORTH COMPUTER 



$294 to $549 



A TDS900 incorporating non-volatile RAM and modified FORTH 
system. FORTH applications and/or stored data are retained in 
NV-RAM when power is removed. Invaluable while developing soft- 
ware. Substitute the following in place of -X to get the order 
code:- -2K, -4K, -6K, -8K, -lOK. This refers to the amount of 
non-volatile memory. The rest, up to 12K, is normal C-MOS RAM. 

TDS902 64K C-MOS FORTH COMPUTER $536 

Although the 64K memory space is almost full the card takes 
only 25mA typical because of its all C-MOS design. 

TDS90D-ASS 6303 FORTH ASSEMBLER $115 

Software for any of the TDS900 series computers which allows 
FORTH words to be defined in microprocessor code. Includes 
structured words such BEGIN/UNTIL compiling to machine code. 

TDS950 COMBINAHON CARD $189 

Cassette interface card containing 1200 baud audio to RS232C 
converter, line transformer/power supply (115/230V) for itself 
and a TDS900 computer, and 200mA-Hr of back-up battery to make a 
TDS900/TDS950 combination self-contained and portable. This is 
an ideal starting system. FORTH software for cassette load/dump. 

TDS971 COMMUNICATIONS CARD $230 

Contains an IEEE-488 Talker/Listener interface and two RS232C. 
TDS972 PARALLEL/SBRIAL/A-D CARD $189 
8-bit parallel I/O, RS232C and 8-bit A-D converter. 



This is an extract from our Iwoetaure of industrial FORTH 
eards. Broetanre free. Official orders accepted. For private 
pureliases send cheque. We accept most cnrreDeieB. Dly 2-3 wedks. 

I Triangle Digital Services Ltd. 

lOOa Wood Street, Walthamstow, London E17 3HX I 
Tel: 01-520.0442 ' Telex 262284 (Quote REF 775) I 
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October 23, 1985 — November 3, 1985 

FORML 

Forth Modification Laboratory 
presents 

EuroFORML Conference 

Stettenfels Castle 

Heilbronn, Federal Republic of Germany 
Followed by 

SYSTEMS Trade Fair, Munich 

Computers and Communications 9th International 
Trade Fair and International User's Congress 

and 

Selected sightseeing tours and entertainment in Germany 
International technical conference October 25-27, 1985 Stettenfels Castie 

Software Metrics — Programs and methods to measure program performance, complexity, 
structure, programmer productivity, development methods, models, tools, program verification 
aids, and procedures. Individual participation is encouraged and attendees are requested to submit 
a conference paper. Conference proceedings will be pubUshed. 

SYSTEMS T^ade Fair October 28 — November 1, 1985 Munich Fair Grounds 

Computers and Communications — This is a major international event covering computers and 
communications. The trade fair is scheduled October 28 through November 1, 1985. 

Guest and Tour Program — A complete program will be available for guests not attending the 
technical conference sessions. Sightseeing escorted tours are planned for the group. 

Reservations, authors instructions, itinerary, special group rate — Write to EuroFORML, Forth 
Interest Group, Post Office Box 8231, San Jose, CA 95155 or telephone the FIG Hotline (408) 
277-0668. East and West Coast departures are planned. Advance reservations are required. 
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Part Two 

FORML China Tour 1984 



10-3: We arose early enough to place 
our leaden bags in the hallway by 6:30 
a.m., just before departing from Hong 
Kong. We met our first guide from the 
People's Republic of China, a young 
woman working for CITS, China's 
official travel service. She swept us to 
Tai Kok Tsui pier, where we waited in 
line to board the hover-ferry to 
Guangzhou (formerly Canton). Travel 
inside China is handled by CITS 
according to availability of rooms and 
flights. Because no flights were 
available out of Hong Kong on this 
day, we were able to travel a scenic 
route along waterways which were 
legendary long before Clavell 
popularized them in his Taipan. And 
although Guangzhou was not on our 
itinerary, after a cursory customs 
inspection, iocal guides bussed us 
through a brief tour of the city. At the 
large center where international trade 
fairs are held twice annually, we ate the 
first of many meals which would move 
us to gustatory extremes. We then 
changed U.S. travellers checks and 




The Great Wall crowns the highest passes 
and steepest inclines. 



Hong Kong dollars into Chinese yuan 
and succumbed to another buyers' 
frenzy before catching our flight to 
Shanghai. 

We lumbered off the plane (only one 
checked bag per person meant many 
hand-carried kilos; and we had been 
fed again, in flight) to breathe the first 
cool air .of the trip. Night was 
advancing, but the city cast only a dim 
glimmer to penetrate the leafy 
boulevards. Night stollers in Shanghai, 
we were told, benefit from an 
ordinance which forbids lighting 
brighter than the full moon. We were 
already far from glitzy Hong Kong! 
During our bus ride to the Shanghai 
Hotel, we found that the local CITS 
guides and our hosts at Shanghai's Jiao 
Tong University had both planned for 
our arriva). Late p)ans were 
formulated over drinks before we fell, 
exhausted, into bed. 

10-4: Our first full day in the 
People's Republic of China was spent 
getting to know the people and places 
of Shanghai. Mr. Hu, our competent 
local guide, escorted us everywhere and 
^ explained everything to us. We stopped 
^by a public park near the river, where 
j| some elderly Chinese, engaged in a 
^ dual form of t'ai chi, attracted us 
^ almost as quickly as our appearance 
drew a crowd of polite and enthusiastic 
o citizens. We had the pleasure of 
I speaking in Enghsh with a few students 
and professionals, but smiles and 
appreciative gestures were as plentiful 
as the people themselves. 

Afterward, we visited famous 
Yuyuan Gardens, a two-hectare walled 
estate in the placid architectural style 
of the wealthy Chinese of past 
centuries. It is now open to the public, 
and has proved so popular that the 
tremendous congestion there came to 
exemplify for us the twelve miUion 
inhabitants of Shanghai. Outside the 
five dragon walls, we saw won-ton 
being made in shops festooned with 
bright silk banners commemorating the 
anniversary of the revolution. We 
stopped at a factory, where workers sit 
side by side before rows of tapestry 




One of the dragon walls enclosing Yuyuan 
Gardens in Shanghai. 



looms, cutting and clipping knots by 
hand at a fierce pace. We also visited a 
jade plant, where workers sit at 
individual work stations with power 
drills to carve goddesses and goblets 
from lucent chunks of stone; and 
where, upstairs, the raw material is 
ivory. We were very impressed by the 
quantity and consistent high quality of 
the finished pieces. Then, just to make 
sure we had an eventful day, our local 
guide arranged an evening at the circus 
for us! 



10-5: This morning, part of the 
FORML group went to Jiao Tong 
University to be met by the university's 
President and an audience of about 
two hundred. During this precursor to 
the FORML conference, which was to 
begin in a few days. Forth was 
introduced to those who hadn't used it 
yet, and a few advanced concepts were 
explored. 

While those ceremonies were taking 
place, the rest of the group was taken 
to a silk-printing factory to learn a bit 
about the process. After a brief foray 
into the company store, all re-boarded 
the bus for a visit with some people 
who will be important to the PRC's 
future: its kindergartners. 
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A group presentation at Shanghai's Jiao Tong University. 



The playground was full of four- to 
six-year-olds, and when the bus pulled 
to a stop they rushed the fences, 
repeatedly calling, "Hi! Hi!" The 
moment of pandemonium was brief, as 
the six-year-olds filed out to greet each 
of the American "aunts and uncles." 
By the time each of them had adopted 
one adult with the clasp of a 
proprietary hand, the younger children 
had disappeared. We found ourselves 
being escorted to a room in the school 
where each of us was served make- 
believe tea with styrofoam cakes — 
these youngsters had obviously been 
learning how Western children play. 
After tea-time, we were again led by 
the hand, this time to a room where the 
four-year-olds were making origami 
gifts for us — paper boats, hats and 
flapping birds which have taken their 
place in photo albums alongside 
snapshots of that day. The final event 
was a musical show in which most of 
the children sang, played instruments 
(we heard "Chopsticks" played as a 
piano duet) and danced; and they 
performed a colorful beach-ball-and- 
panda-suits choreography that 
conclusively stole our hearts as well as 
the show. Our young, panda-clad hosts 
then took us by the hand once more 
and led the way to the waiting bus. As 
we pulled away, young voices called 
out, "Bye! Bye!" 



We were let out at a housing complex 
next. We visited the apartment where a 
sixty-one-year-old woman lives with 
her husband, daughter, son-in-law and 
grandchild. This family lives relatively 
comfortably in a two-room apartment 
with a shared, walk-down bath. We 
were offered tea and cigarettes 
(modern gestures of hospitality), and 
passed a pleasant time chatting about 
lifestyle and income (this household 
earns about 300 yuan per month, of 
which fifteen go for rent, 140 for food; 
most homes have a black-and-white 



=? television — a color set costs a yeai's 
I gross wages). 

^ Lunch was served back at the 
^ Shanghai Hotel, but four members of 
|i the group abandoned hearth, hotel and 
^ tour guides to find vegetarian cuisine. 
Meatless cooking was, somewhat 
surprisingly, rare throughout this trip. 
The best was found in the Jade Buddha 
Temple, a working temple and place of 
pilgrimmage, where the monks prepare 
wonderfully varied and tasty meals 
from vegetables, mosses, mushrooms 
and other fungi. In other parts of the 
temple, the respectful remove their 
shoes before entering rooms where 
larger-than-lifesize jade statues 
representing the Buddha are seated in 
repose on the principles of universal 
law. 

Later that evening, the President of 
Jiao Tong University of Shanghai gave 
a banquet in honor of the FORML 
tour group. It was an occasion of 
ceremony and friendship, and we 
shared in a delightful repast which few 
in the United States are able to sample, 
including eels, young sparrows and sea 
cucumbers. 

10-6: "Above there is heaven, below 
there are Hangzhou and Suzhou." 
Boxed breakfasts and a four-hour train 
ride brought us to lovely Hangzhou. 




One of the major palaces in the Forbidden City. 
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The staff of the Hua Jia Shan Guest 
House was smilingly helpful, and 
worked very hard at communicating 
with their guests in English and 
Japanese. On the shores of Xi Hu 
(West Lake), the population of one 
million seems in harmony with its 
natural surroundings, in contrast to 
Shanghai's crowds of commuting 
bicyclists. The hotel grounds are laced 
with ponds, winding pathways and 
willow trees. 



10-7: We spent a relaxing day 
touring the West Lake area. While 
much of Hangzhou was destroyed 
during last century's Taiping 
Rebellion, and although modern China 
seems slightly disdainful of its spiritual 
heritage, many legendary sights have 
been restored to a fine degree. Lingyin 
Temple is the only working Buddhist 
monastery in this region, and is visited 
by so many devotees that a small but 
thriving trade in souvenirs and 
religious articles has sprung up nearby. 
Adjacent to the temple, the "hill that 
flew from afar" is still covered with 
hundreds of stone carvings that were 
intended to help anchor the hill in 
place, it having already flattened one 
village. On a bluff in the near distance, 
the Six Harmonies Pagoda was erected 
in 970 A.D. so that its geomantic force 
would alleviate the river's devastating 
tidal bore. 

An afternoon cruise on West Lake 
and a visit to a fan factory capped the 
day. Tour participants scheduled to 
lecture at the Shanghai conference 
were packed off on another train, 
while those who remained settled for a 
very welcome early retirement. 



10-8: Tour members who remained 
at Hangzhou embarked this morning 
on a train to Wuxi, where they were 
lodged in a small guest house of their 
own, with luxurious terraces 
overlooking the agricultural lake 
country which surrounded it. 

Meanwhile, the Forth experts in 
Shanghai were greeted by Professor 
Zhou, who introduced each U.S. 
delegate, described FIG's purpose and 



summarized Forth' s history world- 
wide and at Jiao Tong University, 
where it has been used since 1980 under 
the gracious auspices of Dr. Zhu, 
Director of the Computer Center. FIG 
President Robert Reiling responded in 
kind, thanking the hosts for their 
interest in Forth and in becoming a 
FIG Chapter. 

Bill Ragsdale, founding President of 
FIG, used human language as an 
analogy for understanding computer 
languages, and described how both can 
reflect our thought processes. He 
explained that large problems can be 
stated very simply, that a problem's 
solution is usually arrived at by 
breaking it into manageable 
components, and that the environment 
must accomodate the solution. He 
emphasized that FIG derives much of 
its growth from volunteer efforts, as 
compared to vendor-driven or 
manufacturer-driven organizations. 
This may result from the way in which 
Forth meets the real needs of individual 
users. 

Charles Moore continued the 
program by elaborating on Forth' s 
growth without corporate or 
governmental backing. He described 
Forth as a creation of the 
programmers, who now are faced with 
the prospect of convincing 
management to allow them to work 
with the tools of their own choice. He 
views Forth as a versatile programming 
language with advantages of the newer 
special-purpose languages (e.g., 
Smalltalk, Modula-2, Occam, Prolog) 
impHcit to it, but without their 
limitations. Mr. Moore then 
enumerated some major applications 
of Forth in fields like radio telescopy, 
optical telescopy, gas chromatography, 
business systems, commercial 
telephone systems, special-effects 
photography, robot control and health 
care (administrative and technical 
uses), among many others. 

Later that afternoon after discussion 
of F83, the Laxen/Perry 
implementation of Forth-83, Kim 
Harris spoke on problem-solving with 
Forth. Using a sample problem of 
programming a camera for proper 
exposure, he discussed the classic Forth 



Free Power! 



TiM CwMom Af1>LE » Othw Mv«vi 

The CuMom Apple and Other Mysleti 



POWEH-FOHTH - E>ct«nd«d FisFOflTM 
■ncl. sdrtor, 1/0 packags. dtmm pilar, 
McTor copy, tunia graphici and KHind. 
Ordw-No. 6T55 » 19.96 

Th« APPLE m youf Hand, by E Floegel 
The APPLE m y 




PrototypHi>f| Card 
Ordar Mo. 604 
6522 I/O Eiperi 
Ordar No 606 
2716 EPROM Bui 
Ordar No 607 



LewnFOHTH far APPLE 

A subset ot FigFORTH tor i 
Orda* Nr 6163 



S9 95 Order No. 699 



ELCOMP PUBLISHING, INC 
2174 «Ka*t FooiNII Bl>d . Ui>it E 
Uptond, CA 917aS 

PIwm: (7M.I C23-t3t4.Tli(.. 29 11 91 



PAYMENT Chack, VISA, MC 
CA r«Mdent> add 6 % talat lax 
Add t 2.00 tot shipping 
Outside USA. add 15% lot shipping 



One Dollar 

SALE * 



Each book from thii ad ii orm DoHar 
tncradibla tavtngi - M 
CP/M - MBASiC Aw<i«Mk>n Protram* 

Applications, oomplata liilings 



of IT 



(it>a I 



1. dau b 



ol. Invoicing and ii 
OrdM-No. 177 $ 1.00 

Aatrologv - * Look into the Futura 
your ATARI computar. 
r-No, 171 »1.00 
ZX-«1 / TIMEX - Programmina in 
bask: and MMhtna Lanfuapa 

II pachad with prograrm whicti 
rangs from gamn to data managemant 
and macf^irta code. 

Onlar-No. 174 11.00 



Lon of Khamatici. Iricki and iipi. 
Ordar-M*. 153 1 1.00 

MwaaaiR BASK RalamMa Manual 
CMw-N>. 151 tlOO 
Cm anri FaariMf »( Ih« Commodor* 
PET. 0*r-Na. 150 S1.00 
Vr Beak (Varr Importani Prograni*) in 
BASK, Orriar No. 100 S1.00 
FORTH on tha ATARI - Lawning by 
Uaini 

FORTH on tha ATARI diicuuat tha use 
ot FORTH tot ganwating lound. plotting 
^apfiici. and handling text and ilringt. 
Indudad are tampka progtami iMuitrating 
input and output, nuth, ina of tha game 
port, and a lample niailing lilt. 
Ontar-No. 170 S 1-00 



! Buy all 15 books tor onlY S 11 .95 
toil yoor onlar today ' 
Program DaKriptiom - PD Book 

Thii book contains the descriptioni tor 
all software- products and hardware add 
on products fo' ATARI from Hofacker. 
Ordw-No. 173 * 1-00 

Programming in 6502 ttochina Language 
on your PET * CBM 

2 complete Editor /Assemblers* a power 
tul machine language monitor Ihexdump). 
Ordar-No. 166 Sl.OO 
The Third Book of OHIO 
Hovti to expand your personal computer. 
Very useful schematics. Ideal tor every 
ha nj ware buff 

Ordw-No. 159 S 1 00 

Tha SMond Book ot OHtO 

Introduction to 0S-65D operating system 

Onttr-Mo. 151 Sl.OO 

Intal Application Note* 

Reprint ot lnle< literature <8085, 8255) 

Ordar-No. 1&3 Sl.OO 

Complex Sound Ganvation 

Application manual lor the Tl 76477 

complex sound generator. 

Ordar-No- 154 Sl.OO 

Small Buiinaai Profranu 

Programi in BASIC tor the businesi. 

Inventory, ched( tiook, payroll, mailirtg 



Order No. 156 



S1.00 



ELCOMP PUBLISHING, INC. PAYMENT: Chock, VISA, MC 

Z174 Waat Foothill Blld.. Unit E CA ntidonti add 6 K tal« tax 

nd, CA 91786 Md S 2.00 for ihipping. 

Phona: (7141 623-«314.T1>i.: 29 81 91 Outaida USA: add 15% for tfiippmg 



FREE 
FORTH 




* GET ONE FORTH OR BOOK FREE WITH EVERY S 20.00 ORDER • 



FORTH Apptieationi on the IBM PC 

Application programs in FigFOHTH for 
your PC Screens show programj trom 



Learn FORTH - a mbm for tha to- 
ginnar 

Laarn-FORTH f.Atari 600/800XL (Mi 



lal 



iling I. 



ittng a 



complete business package cornbining 
invoice writing, mailing list and inven 
tory control, professional programs tor 
the advanced FORTH progtamrw 
Order No 61 (Book) S 12.95 

POWER FORTH for APPLE lla. ATARI 
SOOXL, Conimodor»«4 

.tended Fig-FORTH .ncl ed.lor and 
lany uMful utilities Very powerful 

MjFOHTH for Apple It c 
Order No 6156 S 19 95 



FigFORTH f 

Order No. 4960 S 39.00 
FigFOHTH for ATARI 800XL 

Ordar-Mo. 7055 S 39.00 



S 19.96 
S9.9e 



Order No. 7053 
La«m-FORTH for APPLE lie 
Orrter No . 6163 
FORTH on tha ATARI 

FORTH application examp4«i for the 
novice and expert programmer 1 1 8 pagas 
This book discusses the m at FORTH 
for generating wund, pk>ning graphics, 
and handling text »nO strings. Irtcludad 
are sample programs illunraling input and 
output, math, use of the game pon 
and a sample mailing list 
Order No 170 (Bookl S 7.B5 

FORTH Introduction on your APPLE Ik 
(The Apple in your Hand) 
A complete introduction (o FORTH on 
your APPLE Includes many FORTH 
application programs and machtna 
language course 

Ortler-Ho 17B IBookl S 12.96 



tuvtm an PAYMENT: Ch«ii. VISA. MC 

invitad. CA raaHlMiti add 6 % latat tax. 

ELCOMP PUBLISHING, INC Add S 2 .00 for rttipfMng. 

3174 Waet Foothill Bird , Unit E Ouwda USA; add 15% for fhipprng 

Upland. CAtlTM In Sinp^are oowct taiax 22 4H 

Phonai 17141 Bi73-«314,TI«. 19 SI 91 In Gw miii cwWMt: talax 53 H 73 



Volume VI, No.6 



35 



technique of top-down problem 
refinement and bottom-up coding. The 
first solution is not always the best 
solution, so familiarization, expansion 
and reduction/factoring were 
introduced to the audience. This talk 
concluded with a review of the 
elements of Forth that make it so 
suitable to this methodology, and with 
a sample high-level solution to the 
posited problem. 

10-9: Bill Ragsdale opened the day 
with his discussion of the Forth virtual 
stack machine, of the differences 
between Forth standards, and with a 
demonstration of Forth on the Radio 
Shack Model 100 (the only computer to 
accompany the group). In response to 




"Store ahead"? 



a question from the previous day, 
George Shaw then detailed differences 
between Forth and COBOL, followed 
by Robert McGhee with a comparison 
of twelve computer languages 
evaluated according to fifteen criteria. 

Following several other talks, many 
of which are documented in other 
FORML publications (e.g., in the 
upcoming 1984 FORML Proceedings), 
all that remained was an exchange of 
mutual thanks and appreciation for the 
hosts and attendees of the conference. 
FIG representatives sincerely offered 
to help Forth grow in the People's 
Republic of China, and hope to have 
many more opportunities to do so. 

10-10: After a late reunion on the 
previous evening, the entire group 



embarked via plane for Beijing, capitol 
of the vast nation. After a short delay 
at the airport, the group found its 
accomodations at the ultra-modern 
Lido Hotel, where our local guide 
appeared. In no time, all were whisked 
off to People's Square, with its massive 
monument to Mao Zedong. The 15th 
century Temple of Heaven was the next 
stop, site of imperial Chinese 
divination and harvest-related prayer. 
There, the natural cycles of seasons 
and stars were woven by the son oi 
Heaven into a tapestry of great benefit 
to all the people. Today, the temple is a 
museum and tourist attraction, 
reminding a few, perhaps, of times 
when the laws of nature were of as 
widely recognized import to daily life 
as the laws of society. 

10-11: FORML members awoke to 
another opportunity to address a 
distinguished audience, this time at 
Beijing's Tsinghua University. About 
220 people attended this meeting, half 
of whom had seen Forth in operation. 
The Forth virtual stack machine was 
discussed, as was the history of FIG 
and FORML. Charles Moore drew 
amused laughter with his comment, 
"Forth is a revolutionary language; 
maybe it is appropriate that it be 
popular in a revolutionary country 
such as China." After the formal event 
concluded, the tour group was treated 
by the local guides to an evening at the 
Chinese opera. 

10-12: Early morning found a few of 
us worn out and feeling a touch of the 
respiratory infection that passes for 
Beijing's version of "turista." But one 
and all boarded a bus headed out of 
town for the Great Wall. Autumn had 
nipped the trees with russet colors, but 
sunlight warmed the breeze which blew 
over the ancient stones. Climbing the 
steep steps on the safe, sheltering side, 
and listening to the sound of the wind 
as it rushed in from vast distances — 
somewhere out there, you can still feel 
the presence of Tibet and Mongolia — 
it was not difficult to imagine a glow of 
campfires circling the world. As at 
Lingyin Temple, a small local industry 
has grown to serve the tourists, but 
here they mostly hawk sweatshirts. 
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t-shirts and other memorabilia. The 
real commodity, though, is the 
presence of antiquity. These dusty 
peddlers aren't victims of a new 
economy: they have always been here. 
Before the revolution and t-shirts, they 
sold water and food to travellers, 
meager feed for their stock, shelter for 
the night; before that, they traded 
small pleasures and fortunes to the 
soldiers who garrisoned the Wall; and 
before that, they were conscripted to 
hew stone blocks out of the native hills. 
The Wall has been a way of life for a 
long time in China. 

10-13: Our last day in Beijing saw us 
admiring very old astronomical 
instruments — appropriate activity for 
proponents of the computer language 
which received its baptism in some of 
the major observatories of the world. 
We also toured the Forbidden City, 
residence of past emporers. Many of 
the 9,000 rooms, which cover a moat- 
enclosed 250-acres, have been restored 
to their simple lines and elegant 
ornamentation. The day concluded 
with a small meeting, during which 
mutual interests and business 
opportunities for U.S. and Chinese 
organizations were discussed. 

10-14: FORML tour members 
boarded a flight to Xi'an, capitol of 
Shaanxi Province and site of the now- 
famous terracotta army. There we were 
once again greeted by Professor Zhou, 
who eased our passage throughout the 
country, along with officials from Jiao 
Tong University of Xi'an and the Chief 
Engineer for the province. 

The local guide took us to the Forest 
of Stone Tablets, a library devoted to 
the works of Confucius, the entirety of 
which was carved in stone along with 
commentary and annotations. After a 
brief tour of the city (population 2.5 
million), which used to be the largest in 
the world, we witnessed a late-evening 
performance of Tang Dynasty dancing. 

10-15: The day began with a much- 
anticipated trip to see restored portions 
of the terracotta army, buried in the 
third century B.C. around the tomb of 
the late emporer. The huge 



archeological site met all expectations, 
and the related museum was very 
helpful in explaining the history of the 
region. During this time, the group 
also viewed a partially excavated 
indigenous village and noted 
congruities with sites in the Americas. 

Returning to Xi'an, our guide took 
us to the university and surrendered us 
into the hands of officials there. Like 
its counterpart in Shanghai, Jiao Tong 
University here is technically oriented; 
it has six research institutions, fourteen 
departments and about 10,000 
students. During a private reception, 
great interest in Forth was expressed to 
us by students and representatives 
from all the university's departments. 
Afterward, we were led into an 
adjoining lecture hall, where a short 
FORML conference was held. In this 



room, only a small handful had used 
Forth or had seen it in action, but 
enthusiasm waxed strong. Some topics 
from previous meetings were re- 
introduced to the new audience, and 
fresh material was covered as well. Our 
visit to Xi'an, and to the People's 
Republic of China, ended with a 
friendly round of questions and 
answers, and an evening of 
comaraderie in the hotel lounge. 

The conference lectures in this article 
and in Part One ^orth Dimensions 
VI/5) were greatly abbreviated due to 
space considerations. Watch for 
published conference proceedings 
which may contain the papers on which 
these talks were based. Special thanks 
to Bob McGhee for helping to compile 
these notes during the trip. 

— Marlin Ouverson. 



PRODUCTS AND ANNOUNCEMENTS 



Forth Dimensions welcomes press 
releases and product announcements, 
as well as reader letters regarding 
product performance. 

Keep your calendars open, folks; 
FIG members in West Germany are 
arranging a FORML conference for 
October 1985. The technical content of 
the conference is anticipated to be 
excellent. Even so, organizers for the 
event have reserved a castle to entice us 
foreigners (but is it crenelated?). And 
if the conference happens to fall as 
close as one could wish to Oktoberfest, 
and just before a major European 
technical conference, then it must be 
coincidence. Call the FIG Hotline at 
415-962-8653 for details. 

Laboratory Microsystems, Inc. has 
released a Unix implementation of 
Fortli for the IBM PC/AT. 
PC/FORTH for 80286 Xenix 
conforms to the Forth-83 Standard, 
and code written for other LMI 
systems can be ported to run under the 
company's latest product. Unix 
functions can be accessed from within 
this version of PC/FORTH, which 
supports the standard Unix file-and- 
directory interface, paths and logical 
devices. The full-screen editor which 
comes with the system is customized 



for the PC/AT; and this Forth can 
compile from text files generated with 
Unix's vi or ed, as well as from 
standard Forth screen files. LMI can be 
reached by calling 213-306-7412 
(voice) or 213-306-3530 (300/1200 
baud BBS for registered LMI 
customers). 

MicroMotion has announced release 
of its MasterForth for tlie Macintosti. 
The system conforms to the Forth-83 
Standard, includes a 68000 macro- 
assembler, and supports Mac's mouse, 
finder, menus and graphics toolbox. In 
addition to its line of Apple software, 
MicroMotion has versions of 
MasterForth for CP/M, the 
Commodore 64 and IBM PC. Floating 
point is an optional extension. Call 
MicroMotion at 213-821-4340 for 
further information. 

Forth, Inc. informs us their 
poly FORTH II is available. It provides 
a multi-tasking, multi-user system to 
users of MS-DOS computers. Tasks 
may have private partitions or may 
execute shared, reentrant routines. The 
relatively new product is being used by 
Bell Canada to operate thirty-two 
terminals on an Omnibyte 68000 
processor. Forth, Inc. may be 
contacted at 213-372-8493. 
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Henry Laxen 
Berkeley, California 

One of the most frequent complaints 
newcomers to Forth mention is its lack 
of a CASE statement. I remember 
calling Kim Harris about eight years 
ago, when I was first learning Forth, to 
despondently ask how such an 
oversight was possible. He assured me 
that, while the language contained no 
intrinsic CASE statement, it would be 
little trouble to implement one. I am 
sure he and everyone else 
knowledgeable about Forth must have 
been asked that question at least a 
thousand times. 

In order to lay the question to rest 
once and for all, Forth Dimensions 
devoted an entire issue to a case- 
statement contest. The fond hope was 
that the last word had finally been 
spoken on the subject of case 
statements. That was true, until now. 
During one of my recent Forth 
playfests, I wondered what would be 
the characteristics of the ideal case 
statement. As an exercise in 
Forthought, I would like to share with 
you my deUberations. 

I started with the CASE known to 
many (see Figure One), which is 
probably the simplest of all. Basically, 
it defines an array of executable Forth 
words at compile time, then indexes 
into this array and executes the nth 
element at run time. Let's go through 
« the definition of CASE in Figure One, 
word by word. 

CREATE makes a header for us and 
adds it to the dictionary. It also 
initializes the code field of the newly 
defined word to be that of VARIABLE. 
HIDE then hides this definition (in F83) 
so that it is unavailable to the compiler 
until it is REVEALed later. !CSP is used 
to initialize the compile-time error 
checking. Next, ] is called to invoke the 
Forth compiler. The counterparts to 
HIDE and !CSP will be executed when 
the definition is terminated by ;. 
Finally, the last word in CASE to be 
executed at compile time is the (;CODE) 
laid down by does>. It rewrites the 
code field of the newly defined word to 
point to the run-time code following it. 

t :■ ■ -■ ■ 

FORTH Dimensions 



Now let's look at the run-time 
action. When ROMAN is called, it 
assumes there is an index on the stack. 
The run-time action of DOES> places 
the parameter field address of ROMAN 
on the parameter stack in front of the 
index. SWAP brings the index to the top 
of the stack. The 2* doubles it, because 
each compiled pointer is two bytes 
long. + adds the doubled index to the 
origin of the array of pointers. @ gets 
the compiled code field address and 
passes it to execute, which runs it. 

This is the basic idea behind most 
Forth case statements in existence 
today. Let's look objectively at the 
advantages and disadvantages of this 
approach. The biggest advantage of 
the version described in Figure One is 
its simplicity. It would be quite 
difficult to make it simpler. It is also 
extremely fast. The amount of 
overhead required to decide which of n 
cases to execute is minimal, just a shift 
and an addition. On the minus side, it 
is very dangerous. If it is ever called 
with an undefined index value, chances 
are very good that we will crash. 
Speaking from experience, let me 
assure you this is not an infrequent 
occurrence. 

The easiest way to solve this problem 
is illustrated in Figure Two. If we 
simply alter the syntax of a case 
statement by requiring that the number 
of cases precede the CASE defining 
word, we can simply and easily 
implement some run-time bounds 
checking. The word map will abort 
with an error message if the index is 
not between zero and number-of-cases 
minus one. Otherwise, it will return the 
address of the cell where the code field 
corresponding to that case is stored. 
We then fetch and execute that code 
field as before. 

This essentially solves the problem 
of crashing case statements, but 
introduces another. First, we have 
changed the syntax of the statement in 
order to accommodate run-time 
checking. This would necessitate 
changing all occurrences of CASE in our 
source code. Furthermore, this form of 
case statement is difficult to maintain, 
since if we add or delete a case from the 
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body of the statement, we must also 
remember to change the corresponding 
number at the beginning of the 
statement. This is a pain and often 
leads to bugs and frustration. 

What we really want is the old syntax 
for a case statement (i.e., no preceding 
number), but run-time error checking 
as well. Greedy, aren't we? 
Fortunately, this is easy, too. The code 
listed in Figure Three performs this 
task. Let's look at how it works. After 
defining the header, we see the words 
HERE ,. This phrase remembers the 
current dictionary location and 
reserves a word of storage there. We 
then proceed to compile the individual 
cases, just as before with HIDE !CSP ]. 
Once the ; is encountered, we execute 
the rest of the words between the ] and 
the OOES>. 

These words simply calculate the 
number of cells used for code fields 
and store the result in the cell reserved 
for it at the beginning of the definition. 
The phrase HERE OVER - calculates the 
number of bytes compiled since the 
original HERE and the terminating ;. 
The 2/ converts this byte count into a 
cell count. The 2- is there because we 
don't want to count the cell used for 
this count ( o , ) or the cell used by the 
UNNEST compiled by ;. Finally, the 
SWAP ! places the result of this 
calculation into the cell reserved for it 
at the beginning. Thus, we have 
computed the number of items in the 
array, and no longer require a count to 
precede the CASE. Notice that the run- 
time action of this statement is 
identical with the one in Figure Two. 

We have progressed. We finally have 
a case statement with the advantages of 
the first one but without its major 
disadvantage. The cost in additional 
complexity is minimal — 
approximately three Unes of code, 
counting the implementation of map. 
However, all these case statements lack 
one major feature, namely flexibility. 
The only cases we can select between 
are small integers. If we wanted to 
perform different actions depending 
upon the range of an integer, and if 
that range were very large, this 
approach would be quite unusable. 

■ " ~l 
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Figure Two 



\ CRSE StatMMnt with laplicit Bounds Checking 

1 . CRSE 

2 CREATE 

3 HERE , HIDE ICSP 1 

4 HERE OUER - 2/ 2- SUflP ! 

5 DOES> tIflP 9 EXECUTE ; 
6 

7 CRSE ROriRN 

8 ZERO 0^E TUO THREE FOUR ; 

9 ROMRH 1 ROnRN 2 ROHRN 

10 3 ROMRN 4 ROMRH 5 ROTIRH 



Figure Three 
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6 OOES> MRP e EXECUTE 
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8 5 CRSE ROMRN 




9 ZERO ONE TUO THREE FOUR 




10 ROMRH 1 ROMRN 2 ROMRH 
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Also, in order to use them we must 
define a word, and hence a new name, 
for each case. For me, this is an even 
greater disadvantage, since naming 
words appropriately is the hardest part 
of programming in Forth, the part I 
would like to minimize. 

Thus, on the other end of the 
spectrum, I would be willing to 
sacrifice some speed and simplicity if I 
could have arbitrary selection criteria 
and avoid having to come up with a 
unique name for each of the cases. In 
addition, I would Hke this new case 
statement to introduce the least 
number of new words into Forth, 
ideally just CASE and, perhaps, END- 
CASE. After thinking about this set of 
objectives for quite a while, I finally 
came up with an implementation. At 
this point, I challenge you to see if you 
can come up with one — I will reveal 
mine in my next article. 

One closing comment. In Figure 
Three, where we implemented the case 
statement that calculates the number of 
items in the CASE, we made use of a 
property of ] that is relatively new and 
useful. In the days of fig-FORTH, ] 
was implemented by setting the 
variable STATE to a value that indicated 
we were compiling instead of 
interpreting. The word interpret in 
the Forth system would look at this 
value of STATE and decide whether to 
compile or interpret the word it was 
scanning. Thus, ] was not callable as a 
subroutine, and the definition in 
Figure Three would not have worked. 
One of the big advances in Forth-83 
was the discovery that a system could 
be written without the variable STATE. 
One consequence of this observation 
was that ] became a callable procedure, 
just Uke other Forth words. Its 
function was to compile the words in 
the input stream until a [ was 
encountered. (Note that ; calls [.) Thus, 
] became a useful procedure in itself, 
allowing us to implement ideas such as 
those found in Figure Three. Needless 
to say, the specification for the GRAND 
CASE statement described in the 
previous paragraph makes heavy use of 
this feature of j. Enough hints; good 
luck, and may the Forth be with you. 
Copyright© 1985 by Henry Laxen. All 
rights reserved. 
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We wish to welcome two new 
chapters: 



Netherlands FIG Chapter 

(in formation) 



Potomac FIG Chapter 



Central Arkansas FIG Chapter, Little 
Rock, Arkansas 

New Hampshire FIG Chapter, 
Manchester, New Hampshire 



The two chapters in the San 
Francisco Bay area have decided to 
recombine as one for greater strength 
and companionship. 

As we end this volume of Forth 
Dimensions, I want to thank the people 
who have put so much effort into 
making these sixty-nine chapters 
possible world-wide. To the "sparks," 
the people who work so hard getting 
the chapter started and keeping the 
day-to-day engine running; and to the 
members of these chapters, who give so 
much of their time to make Forth and 
the Forth Interest Group possible, I 
would like to say "Here, Here!" and 
"Thank You!" If I could speak for the 
rest of the Forth community, I think 
you would here 5000+ voices saying 
"Thank You!" 



Orange County FIG Chapter 

Nov. 28: Martin Tracy, from the Los 
Angeles Chapter, attended and 
presented his paper from FORML. 
Steve Pollack presented his first pass 
on a public-domain floating point for 
the 8087 on IBM PCs and clones. 
There was considerable discussion 
about the Forth Convention, and 
about what our chapter should be 
doing to promote Forth. 

Dec. 5: We had Guy Kelley and Guy 
Grotke, guests from the San Diego 
Chapter. They presented a meta- 
compiler which can be taught easily. 
Guy Kelley also presented a paper on 
IBM PC key assignments, which can be 
vectored to do about anything. Bob 
Snook presented a paper on readability 
vs. economy. 

— Roland Koluvek 



Some news from Holland: Forth is 
doing well here and is promoted by 
association with the Hobby Computer 
Club (HCC). The HCC is an 
organization of 20,000 members and 
still growing fast. It has a matrix 
structure; this means everybody is, at 
the same time, a member of some 
interest growp (row; e.g.. Forth or 
Apple) and from a geographical 
subgroup (column; e.g., Utrecht or 
Amsterdam). Forth is spreading 
through contact with many BASIC 
programmers; we are showing off by 
winning the problem-of-the-month 
contest nearly every month; and we 
promote Forth in the HCC newsletter 
(also sold outside the HCC). Among 
activities are development of 
FYSFORTH, mentioned in Forth 
Dimensions. We have quarterly 
meetings and a bimonthly bulletin, 
VIJGEBLAD. 

We would like to tell you about the 
availability of the 68000 fig-FORTH 
source listing written in Motorola 
assembler. It can be cross-compiled by 
the public-domain assembler available 
under CP/M. It assembles to an exact 
copy of the object of the existing 68000 
fig-FORTH version 1.0. Plans are to 
make this source listing available in 
print in Holland and via FIG. We can 
send a machine-readable version. In 
Holland, it is also distributed on 
cassette in the Forth version of the 
BASICODE format. BASICODE is a 
joint effort of the HCC and the Dutch 
Broadcasting Foundation, "NOS." It 
is a method for distribution of 
machine-independent BASIC 
software. Every Sunday, a program is 
broadcast here and also on the 
"Wereldomroep" international 
shortwave. The 68000 FIG source was 
converted to this format with the 
cooperation of the Dutch HCC FIG 
chapter and the 68000 user group. 



— Albert van der Horst 



Feb. 5: Joel Shprentz described and 
demonstrated a version of Prolog in 
Forth. Prolog is a language used for 
artificial intelligence. Like expert 
systems, Prolog uses facts (e.g., Mary 
likes wine) and rules (John likes X if X 
likes wine) to make logical conclusions 
(John likes Mary). Joel has written a 
Prolog interpreter in Forth-83. 
Although the language syntax has been 
twisted to fit Forth, it is still Prolog 
(similar liberties have been taken with 
LISP implementations). The problem 
above would look like this: 

ATOM John ATOM Mary ATOM likes 
ATOM wine VAR X 
{ { likes Mary wine } } RULE 
{ { likes John X } { likes X wine } } 
RULE 

{ { Likes John X } } PROVE 

— Joel Shprentz 

Central Arkansas FIG Chapter 

Dec. 8: The Central Arkansas FIG 
Chapter was formed during its first 
meeting, held at the National 
Education Center's excellent facility. 
Thanks are in order — to the Arkansas 
Computer Club for support and 
assistance; to Betsy (FIG Hotline) for 
the great supply of handouts; to Ron 
and the Atlanta FIG Chapter for their 
wishes and support; and to John (SE 
Florida FIG) for the great input and 
screens. The meeting was called to 
order by Gary Smith, who gave a 
presentation of the history and 
architecture of Forth. Donald Long 
gave several informative 
demonstrations of Forth on a 
COMPAQ with LMI Forth. Donald 
also described the single-board Forth 
system he uses for home security. Gary 
demonstrated the stack using a Jupiter 
Ace running the stack/boxes demo. 

— Gary Smith 



Kansas City FIG Chapter 

Nov. 27: Thirteen attended. Brooks 
Herdon gave a demo of Harvard 
Software Forth. Some highlighted 
features included segmenting different 
functions of Forth, capability to load 
source from text files entered via 
Wordstar, a logging facility, and 
others. We also noticed that some 
words did stack-underflow/overflow 
checking. 

Sacramento FIG Chapter 

Nov. 13: Twenty-three people 
attended, including Highlands High 
School teacher Jim Wong and two of 
his students, Trevor and John. They 
demonstrated their Forth-directed 



robot, TOPO. Mr. Wong purchased 
TOPO personally in order to enhance 
student interest in computer science 
with his proposed "Robotics and 
Forth" class, students' first exposure 
to Forth. Their impression is such that 
Mr. Wong is considering a Forth 
language class for the near future. We 
also had a round-table discussion 
regarding Charles Moore's talk on his 
Forth engine at the Silicon Valley FIG 
meeting, which several of our members 
had attended. 

— Tom Ghormley 

Fort Wayne FIG Chapter 

Nov. 14: Ed Harmon has selected 
the ACM Special Interest Group 



Graphics (SIGGRAPH) CORE 
standard as the task of our group 
project. He has chosen a Pascal 
implementation as a model to be 
implemented in Forth. Ed led the 
meeting discussion toward defining the 
task interface requirements with the 
following conclusions: 1) Forth-79 will 
be the dialect used. 2) The names and 
types of variables were selected. Some 
variables will be arrays and double 
precision. Floating point will not be 
used. 3) Ed partitioned the Pascal 
model's procedures and assigned them 
as tasks for the five members 
participating in the project. 

— Blair McDermid 



TOTAL CONTROL 

FORTH: FOR Z-8(F, 8086, 68000, and IBM® PC 

Complies with the New 83-Standard 
GRAPHICS. GAMES. COMMUNICATIONS. ROBOTICS 
DATA ACQUISITION . PROCESS CONTROL 

• FORTH programs are instantly forth Application Development Systems 

include interpreter /compiler witti virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions 
Z-80 FORTH for CP/M" 2 2 or MPIM II, $100 00; 
8080 FORTH for CP/M 2 2 or IVIP/M II, $100 00, 
8086 FORTH for CP/M-86 or MS-DOS. $100,00; 
PC/FORTH for PC-DOS. CP/M-86. or CCPM. 
$100,00; 68000 FORTH for CP/M-68K, $250,00, 



are 

portable across the four nriost popular 
microprocessors. 

• FORTH is interactive and conver- 
sational, but 20 times taster than 
BASIC. 

• FORTH programs are highly struc- 
tured, modular, easy to maintain. 

• FORTH affords direct control over 
all interrupts, memory locations, and 
i/o ports. 

• FORTH allows full access to DOS 
files and functions. 

• FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

• FORTH Cross Compilers are 
available for ROM'ed or disk based ap- 
plications on most microprocessors. 

Trademarks' IBf^, Internaltonal Business Macfiines 
Corp , CPIM. Digital Researcti Inc PC/Forth + and 
PC/GEN, Laboratory Microsystems, Inc 



FORTH + Systems are 32 bit implementations 
tfiat allow/ creation of programs as large as 1 
megabyte Ttie entire memory address space of 
tlie 68000 or 8086/88 is supported directly, 

PC FORTH -t- $250 00 

80S6 FORTH +for CP/M-86 or MS-DOS $250,00 
68000 FORTH for CP/M-68K $400,00 

Extension Paclcages available include; soft- 
ware floating point, cross compilers, INTEL 
8087 support, AMD 951 1 support, advanced col- 
or grapfiics, custom cfiaracter sets, symbolic 
debugger, telecommunications, cross reference 
utility. B-tree file manager. Write for brochure. 



Laboratory Microsystems Incorporated 

Post Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to (213) 306-7412 
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• ALASKA 

Kodiak Area Chapter 

Call Norman C. Mcintosh 
907/486-4843 



• ARIZONA 

Phoenix Chapter 

Call Dennis L. Wilson 
602/956-7678 

Tucson Chapter 

Twice Monthly, 

2nd & 4th Sun., 2 p.m. 

Flexible Hybrid Systems 

2030 E. Broadway #206 

Call John C. Mead 

602/323-9763 

Central Arkansas Chapter 

TVvice Monthly: 2nd Sat., 2 p.m. & 
4th Wed., 7 p.m. 
Call Gary Smith 
501/227-7817 



• CALIFORNIA 



Los Angeles Chapter 

Monthly, 4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Call Phillip Wasson 
213/649-1428 

Monterey/Salinas Chapter 

Call Bud Devins 
408/633-3253 

Orange County Chapter 

Monthly, 4th Wed., 7 p.m. 
FuUerton Savings 
Talbert & Brookhurst 

Fountain Valley 
Monthly, 1st Wed., 7 p.m. 
Mercury Savings 
Beach Blvd. & Eddington 
Huntington Beach 
Call Noshir Jesung 
714/842-3032 

San Diego Chapter 

Weekly, Thurs., 12 noon 
Call Guy Kelly 
619/268-3100 ext. 4784 

Sacramento Chapter 

Monthly, 4th Wed., 7 p.m. 
1798-59th St., Rm. A 
Call Tom Ghormley 
916/444-7775 



Bay Area Chapter 

Monthly, 4th Sat. 
FORML: 10 a.m. 
General: 1 p.m. 
ABC Christian School Aud. 
Dartmouth & San Carlos Ave. 
San Carlos 

Call: FIG Hotline — 415/962-8653 

Stockton Chapter 

Call Doug Dillon 
209/931-2448 

• COLORADO 

Denver Chapter 

Monthly, 1st Mon., 7 p.m. 
Call Steven Sams 
303/477-5955 



• CONNECTICUT 

Central Connecticut Chapter 

Call Charles Krajewski 
203/344-9996 



• FLORIDA 

Orlando Chapter 

Every two weeks. Wed., 8 p.m. 
Call Herman B. Gibson 
305/855-4790 

Miami 

Monthly, Thurs., p.m. 
Coconut Grove area 
Call John Forsberg 
305/252-0108 

Tampa Bay Chapter 

Monthly, 1st Wed., p.m. 
Call Terry McNay 
813/725-1245 



• GEORGIA 

Atlanta Chapter 

Call Ron Skehon 
404/393-8764 



• ILLINOIS 

Central Illinois Chapter 

Urbana 

Call Sidney Bowhill 
217/333-4150 

Fox Valley Chapter 

Call Samuel J. Cook 
312/879-3242 

Rockwell Chicago Chapter 

Call Gerard Kusiolek 
312/885-8092 



• INDIANA 

Central Indiana Chapter 

Monthly, 3rd Sat., 10 a.m. 
Call John Oglesby 
317/353-3929 

Fort Wayne Chapter 

Monthly, 2nd Wed., 7 p.m. 
Indiana/Purdue Univ. Campus 
Rm. B71, Neff Hall 
Call Blair MacDermid 
219/749-2042 

• IOWA 

Iowa City Chapter 
Monthly, 4th Tues. 
Engineering Bldg., Rm. 2128 
University of Iowa 
Call Robert Benedict 
319/337-7853 

• KANSAS 

Wichita Chapter (FIGPAC) 

Monthly, 3rd Wed., 7 p.m. 
Wilbur E. Walker Co. 
532 Market 
Wichita, KS 
Call Arne Flones 
316/267-8852 



• LOUISIANA 

New Orleans Chapter 

Call Darryl C. Olivier 
504/899-8933 



• MASSACHUSETTS 

Boston Chapter 

Monthly, 1st Wed. 
Mitre Corp. Cafeteria 
Bedford, MA 
Call Bob Demrow 
617/688-5661 after 7 p.m. 



• MICHIGAN 
Detroit Chapter 

Monthly, 4th Wed. 
Call Tom Chrapkiewicz 
313/562-8506 



• MINNESOTA 
MNFIG Chapter 

Even Month, 1st Mon., 7:30 p.m. 
Odd Month, 1st Sat., 9:30 a.m. 
Vincent Hall Univ. of MN 
MinneapoUs, MN 
Call Fred Olson 
612/588-9532 



• MISSOURI 

Kansas City Chapter 

Monthly, 4th Tues., 7 p.m. 
Midwest Research Inst. 
Mag Conference Center 
Call Linus Orth 
816/444-6655 
St. Louis Chapter 
Monthly, 3rd Tues., 7 p.m. 
Thornhill Branch of 
St. Louis County Library 
Call David Doudna 
314/867-4482 

• NEVADA 

Southern Nevada Chapter 

Call Gerald Hasty 
702/452-3368 

• NEW HAMPSHIRE 
New Hampshire Chapter 

Monthly, 1st Mon., 6 p.m. 
Armtec Industries 
Shepard Dr., Grenier Field 
Manchester 
Call M. Peschke 
603/774-7762 

• NEW MEXICO 
Albuquerque Chapter 

Monthly, 1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Call Rick Granfield 
505/296-8651 

• NEW YORK 

FIG, New York 

Monthly, 2nd Wed., 8 p.m. 
Queens College 
Call Ron Martinez 
212/517-9429 

Rochester Chapter 

Bi-Monthly, 4th Sat., 2 p.m. 
Hutchinson Hall 
Univ. of Rochester 
Call Thea Martin 
716/235-0168 

Syracuse Chapter 
Monthly, 3rd Wed., 7 p.m. 
Call Henry J. Fay 
315/446-4600 

•OHIO 

Athens Chapter 

Call Isreal UrieU 
614/594-3731 

Cleveland Chapter 

Call Gary Bergstrom 
216/247-2492 

Cincinatti Chapter 

Call Douglas Bennett 
513/831-0142 



Dayton Chapter 

Twice monthly, 2nd Tues., & 

4th Wed., 6:30 p.m. 

CFC 11 W. Monument Ave. 

Suite 612 

Dayton, OH 

Call Gary M. Granger 

513/849-1483 



• OKLAHOMA 

Central Oklahoma Chapter 

Monthly, 3rd Wed., 7:30 p.m. 
Health Tech. Bldg., OSU Tech. 
Call Larry Somers 
2410 N.W. 49th 
Oklahoma City, OK 73112 



• OREGON 

Greater Oregon Chapter 

Monthly, 2nd Sat., 1 p.m. 
Tektronix Industrial Park 
Bldg. 50, Beaverton 
Call Tom Almy 
503/692-2811 



• PENNSYLVANIA 

Philadelphia Chapter 

Monthly, 3rd Sat. 

LaSalle College, Science Bldg. 

Call Lee Hustead 

215/539-7989 



• TENNESSEE 

East Tennessee Chapter 

Monthly, 2nd Tue., 7:30 p.m. 
Sci. Appl. Int'l. Corp., 8th Fl. 
800 Oak Ridge Turnpike, Oak Ridge 
Call Richard Secrist 
615/693-7380 



• TEXAS 

Austin Chapter 

Contact Matt Lawrence 
P.O. Box 180409 
Austin, TX 78718 

Dallas/Ft. Worth 
Metroplex Chapter 

Monthly, 4th Thurs., 7 p.m. 
Call Chuck Durrett 
214/245-1064 



Houston Chapter 

Call Dr. Joseph Baldwin 
713/749-2120 



• VERMONT 

Vermont Chapter 

Monthly, 3rd Mon., 7:30 p.m. 
Vergennes Union High School 
Rm. 210, Monkton Rd. 
Vergennes, VT 
Call Hal Clark 
802/877-2911 days 
802/452-4442 eves. 



• VIRGINIA 

First Forth of Hampton Roads 

Call William Edmonds 
804/898-4099 

Potomac Chapter 

Monthly, 1st Tues., 7 p.m. 
Lee Center 

Lee Highway at Lexington St. 
Arlington, VA 
Call Joel Shprentz 
703/437-9218 eves. 

Richmond Forth Group 

Monthly, 2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Call Donald A. Full 
804/739-3623 



FOREIGN 



• AUSTRALIA 



Melbourne Chapter 

Monthly, 1st Fri., 8 p.m. 
Contact Lance Collins 
65 Martin Road 
Glen Iris, Victoria 3146 
03/29-2600 

Sydney Chapter 
Monthly, 2nd Fri., 7 p.m. 
John Goodsell Bldg. 
Rm. LG19 

Univ. of New South Wales 
Sydney 

Contact Peter Tregeagle 
10 Binda Rd., Yowie Bay 
02/524-7490 



• BELGIUM 

Belgium Chapter 

Monthly, 4th Wed., 20:00h 
Contact Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 



Southern Belgium FIG Chapter 

Contact Jean-Marc Bertinchamps 

Rue N. Monnom, 2 

B-6290 NaUnnes 

Belgium 

071/213858 



• CANADA 

Nova Scotia Chapter 

Contact Howard Harawitz 
227 Ridge Valley Rd. 
Halifax, Nova Scotia B3P2E5 
902/477-3665 



Southern Ontario Chapter 

Quarterly, 1st Sat., 2 p.m. 
General Sciences Bldg. 
Rm. 312 

McMaster University 
Contact Dr. N. Solntseff 
Unit for Computer Science 
McMaster University 
Hamilton, Ontario L8S4K1 
416/525-9140 ext. 3443 



Toronto FIG Chapter 

Contact John Clark Smith 
P.O. Box 230, Station H 
Toronto, ON M4C5J2 



• COLOMBIA 

Colombia Chapter 

Contact Luis Javier Parra B. 
Aptdo. Aereo 100394 
Bogota 
214-0345 



• ENGLAND 

Forth Interest Group — U.K. 

Monthly, 1st Thurs., 
7p.m., Rm. 408 
Polytechnic of South Bank 
Borough Rd., London 
Contact Keith Goldie-Morrison 
Bradden Old Rectory 
Towchester, Northamptonshire 
NN12 8ED 



• FRANCE 

French Language Chapter 

Contact Jean-Daniel Dodin 
77 Rue du Cagire 
31100 Toulouse 
(16-61)44-03 



• GERMANY 

Hamburg FIG Chapter 

Monthly, 4th Sat., 1500h 
Contact Horst-Gunter Lynsche 
Common Interface Alpha 
Schanzenstrasse 27 
2000 Hamburg 6 



• IRELAND 

Irish Chapter 

Contact Hugh Doggs 
Newton School 
Waterford 

051/75757 or 051/74124 



• ITALY 
FIG Italia 

Contact Marco Tausel 
Via Gerolamo Forni 48 
20161 Milano 
02/645-8688 



• REPUBLIC OF CHINA 
R.O.C. 

Contact Ching-Tang Tzeng 
P.O. Box 28 
Lung-Tan, Taiwan 325 



• SWITZERLAND 

Swiss Chapter 

Contact Max Hugelshofer 
ERNI & Co., Elektro-Industrie 
Stationsstrasse 
8306 Bruttisellen 
01/833-3333 



SPECIAL GROUPS 



Apple Corps Forth Users 
Chapter 

Twice Monthly, 1st & 

3rd Tues., 7:30 p.m. 

1515 Sloat Boulevard, #2 

San Francisco, CA 

Call Robert Dudley Ackerman 

415/626-6295 

Baton Rouge Atari Chapter 

Call Chris Zielewski 
504/292-1910 

FIGGRAPH 

Call Howard Pearlmutter 
408/425-8700 
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ORDER FROM THE FORTH INTEREST GROUP 

Complete Order Form on Page 24 



FORTH INTEREST GROUP 

p. O. Box 8231 

San Jose, CA 95155 
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San Jose, CA 



ROBERT SHITH 

2300 ST. FRANCIS DR. 

PALO ALTO, CA 94303 
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